Dagelijkse backup?

[Nicu]

Hoi hoi,

Is het mogelijk om van een excel document, dagelijks 1x per dag automatisch een backup te maken naar een bepaalde map waarbij de naam van het document wordt opgeslagen plus de datum van die dag. Zodat je dus meerdere versie krijgt in de backup map. Het bestand wordt meerdere keren per dag geopend en ook door meerdere gebruikers.

Groet,

Josh

 

[gast0660]

Zoiets?
Deze in This workbook

Private Sub Workbook_Open()
If Weekday(Now, vbMonday) < 6 Then
Application.OnTime TimeValue("[COLOR="#FF0000"]09:00:00[/COLOR]"), "Dotchie"
End If
End Sub

Slaat het bestand op van maandag tot vrijdag om 09:00 uur
En deze in een module (pas de rode gedeeltes aan)

Sub Dotchie()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ("[COLOR="#FF0000"]C:\Users\uwmapnaam[/COLOR]\" & Format(Now(), "DD-MM-YYYY hh mm")) & "[COLOR="#FF0000"](copy van uw bestand)[/COLOR]"
Application.DisplayAlerts = True
End Sub

 

[HSV]

@dotchie; Ik zou 'ActiveWorkbook.SaveAs' wel vervangen voor 'Thisworkbook.saveas', mocht er om 09:00 uur een ander bestand open staan.

 

[gast0660]

@HSV daar heb je volledig gelijk in

 

[HSV]

Misschien nog iets om over na te denken.
Als je het bestand voor 09:00 sluit en om 09:30 weer zou openen?

 

[snb]

Dit lijkt me een beter idee:

Private Sub Workbook_open()
   c00="G:\OF\" & replace(thisworkbook.name,".",format(date,"yyyymmdd."))
   if dir(c00)="" then thisworkbook.savecopyas c00
End Sub

 

[HSV]

Mij ook, maar ik wilde er niet direct mee komen.

Ik zou het laatste stukje nog wel aanpassen in:

format(date, "yyyymmdd."))

 

[Webklus]

Misschien om overna te denken. Ik weet niet welk systeem je hebt maar windows 10 kan een automatische back-up maken van de map of het bestand. https://youtu.be/VOrOGaRjju4

 

[snb]

@HSV

Goede voorslag

 

[Nicu]

Geweldig! Ik ga het van het weekend gelijk proberen, kan er nu helaas niet bij. Maar als ik het goed begrijp wordt er in het weekend geen Back-up gemaakt, dit zou eigenlijk wel moeten, wij zijn altijd open.
En nu moet ik verschillende mappen opslaan, kan je ook in 1 keer het hele bestand backuppen?

 

[Nicu]

Ik heb de verandering toegevoegd, maar ben nu erg benieuwd of het werkt. Op wat voor een tijd moet ik mijn computerklok zetten om te controleren of hij het doet?

 

[HSV]

Bij de code van @snb hoef je alleen maar te kijken of er een bestandje is aangemaakt.
Morgen kijk je weer of stelt de Pc in op 14-08-2016.

 

[Nicu]

Ik heb de code van HSV gebruikt en allerlei data verzet, maar er gebeurt niets. Het 2e gedeelte van Dotchie moet toch nog wel in een module worden geplaats?
En bij Sub Workbook open had ik ook al een andere code staan, maakt dit uit?

Private Sub Workbook_open()
 c00 = "\\fs04\pfsfsdf\dsfd\Vfdgdgo\OVERZICHTEN\backup\test" & Replace(ThisWorkbook.Name, ".", Format(Date, "yyyymmdd."))
   If Dir(c00) = "" Then ThisWorkbook.SaveCopyAs c00
For j = 1 To 3
    With Sheets("Unit " & j)
        If CDbl(.Cells(56, 14)) < CDbl(Date) Then
            For i = 3 To 45 Step 6
                If .Cells(i, 2) <> vbNullString Then
                    weeks = DateDiff("w", .Cells(i, 2), Date, 2): days = DateDiff("d", .Cells(i, 2), Date, 2) Mod 7
                    .Cells(i, 2).Offset(, 1) = weeks & " wkn " & days & " dgn"
                    trm = Split(.Cells(i, 2).Offset(1), "+")
                    nuweeks = trm(0) + weeks: nudays = trm(1) + days
                    If nudays > 6 Then
                        nuweeks = nuweeks + IIf(nudays Mod 6 <> 0, 1, 2)
                        nudays = nudays Mod 6
                    End If
                    .Cells(i, 2).Offset(2) = "nu " & nuweeks & "+" & nudays
                End If
            Next
        End If
        .Cells(56, 14) = Date
    End With
Next
End Sub

 

[HSV]

Ik heb nergens code voor geschreven.
Die van @dotchejack hoort uiteraard niet tussen de code van @snb..

 

[Nicu]

Excuses, ik bedoelde snb....
Ik heb de code uit de module gehaald en nog eens goed naar de mapstructuur gekeken en nu doet hij het prima. Bedankt allemaal voor het meedenken!