• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wekelijks een autosave maken in bepaalde map

Status
Niet open voor verdere reacties.
E

emmertje

Gebruiker
Lid geworden
19 sep 2017
Berichten
8
Hallo,

Ik zou graag een Excelbestand wekelijks de laatste versie van het bestand willen wegschrijven naar een backup-map.

Het gaat hierbij om een verlofplanning, die dagelijks door mij en mijn collega's wordt bijgewerkt (nieuwe verlofaanvragen worden verwerkt in dit bestand).

Hoe krijg ik dit het best voor elkaar?

Mijn voorkeur gaat uit naar een stukje VBA-code om hiermee menselijke fouten uit te sluiten.

Bijgevoegd een soortgelijk, maar ouder bestand.
 

Bijlagen

  • Verlofplanning 2017 augustus.xls
    633 KB · Weergaven: 32
Stel dat je op vrijdag een backup wilt maken, dan krijg je zoiets:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim IntialName As String, sFileSaveName As String

    If Weekday(Date, vbMonday) = 5 Then
        sFileSaveName = CreateObject("WScript.Shell").SpecialFolders("Desktop")
        MsgBox "Opslaan op Bureaublad in Map Verlofplanning volgnummer .."
        IntialName = "Verlofplanning"
        Application.EnableEvents = False
        sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=sFileSaveName _
            & "\Verlofplanning\", fileFilter:="Excel Files (*.xlsm), *.xlsm")
        If sFileSaveName <> False Then
            ActiveWorkbook.SaveAs sFileSaveName
            Exit Sub
        End If
        Application.EnableEvents = True
    End If
End Sub
Dit werkt natuurlijk alleen als je het bestand ook op vrijdag opent. Stel dat je op maandag-donderdag in het bestand werkt, maar op vrijdag niet, dan gebeurt er alsnog niks. Zelf zou ik dan ook een Scheduled Task maken die het bestand op een vaste dag op een vaste tijd kopieert, dan ben je overal vanaf. Hoef je het ook niet in het Excel bestand zelf te regelen.
 
Bedankt voor het snelle antwoord; ik heb het naar tevredenheid werkend gekregen.

Ik zal ook eens kijken hoe ik e.e.a. geregeld kan krijgen via Scheduled Task
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan