Automatische backup - Pagina 2

Kruier · #11 5 januari 2010, 18:57

"full proof"

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MyPath = "C:\My Documents"
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

On Error Resume Next
    x = GetAttr(MyPath) And 0
    If Err = 0 Then             'PathExists = True
        ActiveWorkbook.SaveCopyAs MyPath & _
            Format(Now, "yyyymmddhhmmss") & "_" & _
            Application.UserName & "_" & _
            ActiveWorkbook.Name
    Else                       'PathExists = False
        MsgBox "De opgegeven map is niet beschikbaar"
    End If
End Sub

DutchOirs · #12 5 januari 2010, 19:43

Thanks Kruier wrerkt perfect :-)

edtwiest · #13 9 maart 2010, 16:10

Een collega van me had ook zo'n probleem dat ze af en toe bestandjes mist ;-)

Ik heb de code toegevoegd, maar nu krijgt ze wel erg veel backup-bestanden.

Is hier een oplossing voor ?

bsalv · #14 9 maart 2010, 16:30

wat is veel ?
Moet het beperkt worden tot 1 bestandje per uur/dag/week ?

edtwiest · #15 9 maart 2010, 16:38

1 bestandje per week zou voldoende moeten zijn lijkt me; in dat geval heeft ze altijd een vrij recente versie achter de hand.

Dan zou het 'oude' backupbestand daarna wel weer 'gewoon' overschreven mogen worden.

Dan zou ze al heel erg geholpen zijn.
Alvast bedankt voor het meedenken!

R0yk3 · #16 9 maart 2010, 16:39

Ja hoor,

Door af en toe op te schonen.
Ik bevries mijn bestand regelmatig. Na bevriezing gooi ik alle voorgaande backups weg.

Wat jij voorstelt is standaard backuppen, daar heb je andere hele mooie programma's voor. Hiervoor gebruik ik de gratis versie van syncback.

bsalv · #17 9 maart 2010, 16:44

ik wacht even af wat het wordt ...

edtwiest · #18 9 maart 2010, 16:49

Natuurlijk zou dat kunnen, maar je zou toch denken dat het ook zonder extra veel (extra menselijke) handelingen mogelijk zou moeten zijn?

Wat Bsalv voorstelt vond ik wel mooi;

- Voor elke week een backup bijhouden --> dus nu backup test_wk9.xls
- voor volgende week --> backup test_wk10.xls
enz.

Zo heb je geen wirwar aan bestanden, houdt je't overzichtelijk en heb je weinig dataverlies.

bsalv · #19 9 maart 2010, 17:54

ik heb vorige macro aangepast, dus als je daar nog backup etc voor wilt staan hebben, dan moet je dat maar even aanpassen, hij saved nu als yyww_username_filenaam

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MyPath As String, JaarWeekNr As Integer, x

MyPath = "C:\MyDocuments"
JaarWeekNr = Format(Date, "yy") & Format(DatePart("ww", Date, vbMonday, vbFirstFourDays), "00") 'afhankelijk van de weeknummering vbFirstFourDays, je krijgt dit "yyww" als resultaat
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
On Error Resume Next
    x = GetAttr(MyPath) And 0
    If Err = 0 Then             'PathExists = True
        ActiveWorkbook.SaveCopyAs MyPath & JaarWeekNr & "_" & Application.UserName & "_" & ActiveWorkbook.Name
    Else                       'PathExists = False
        MsgBox "De opgegeven map is niet beschikbaar"
    End If
    Cancel = True
End Sub

edtwiest · #20 9 maart 2010, 18:07

Wederom 100% respect voor alle exceltechneuten!!

Vooralsnog bedankt voor alle hulp; zal het morgen op het werk gelijk testen (met uiteraard vermelding van mijn hulpbron(nen))!

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave