Macro zodat bij opslaan ook een kopie wordt opgeslagen

[candyman1985]

Hey kenners.

Ik ben op zoek naar een macro die ervoor zorgt dat als een excel bestand wordt opgeslagen, ditzelfde bestand ook op een andere locatie wordt opgeslagen.

Wat moet ik dan bij de if neerzetten?
Ik weet al dat de formule om het bestand op te slaan volgende is

ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "backup" &\" & Range("G12") & " " & Range("B10") & ".xls"

 

[candyman1985]

Ik was te snel met vragen.

Zoeken naar de mogelijke opties binnen ThisWorkbook en andere zoektermen op dit forum bracht me tot het volgende:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & "backup" & "\" & "backup" & " " & Format(Now, "dd-mm-yyyy") & ".xls"
End Sub