Backup maken

[Roma]

Hallo,
Ik heb een code om een bestand op te slaan als...
Maar nu wil ik graag dat er een backup van gemaakt wordt.

Sub opslaan_als()
 With Sheets("Blad1")
ActiveWorkbook.SaveAs .[F18] & Format(.[F19], "dd-mm-yyyy") & ".xlsm"
 End With
End Sub

Als ik SaveAs verander in:"SaveCopyAs" krijg ik een foutmelding.
Weet iemand wat ik fout doe.

 

[andre@home]

Alle . en " en () kloppen?

 

[edmoor]

Gebruik diezelfde code gewoon nogmaals maar dan met een andere naam voor het bestand. Bijvoorbeeld:

Sub opslaan_als()
    With Sheets("Blad1")
        ActiveWorkbook.SaveAs .[F18] & Format(.[F19], "dd-mm-yyyy") & "_backup.xlsm"
        ActiveWorkbook.SaveAs .[F18] & Format(.[F19], "dd-mm-yyyy") & ".xlsm"
    End With
End Sub

En als je zegt een foutmelding te krijgen is het handig als je die hier dan ook laat weten.
Foutmeldingen zijn er niet om de gebruiker te pesten maar hebben een doel.

 

[Roma]

Dit werkt. maar dan ga je verder werken met het backup bestand en dat is niet de bedoeling.

 

[edmoor]

Nee. Het staat in de juiste volgorde. Als het goed is werk je door in de laatst opgeslagen versie, dus die zonder _backup in de naam.

 

[Roma]

foutje van mij Beadnkt