opslaan in extra bestand

[kruysklm]

Is het mogelijk om bij het opslaan van een bestand, dat de wijziging ook in een gelijk bestand maar met een andere naam ook wordt opgeslagen.

Klaas.

 

[edmoor]

Met "Opslaan als" kun je dat uiteraard doen.
Als dat niet is wat je bedoeld is het wel handig te vermelden om wat voor een bestand het gaat en welk programma je gebruikt.

 

[kruysklm]

Het gaat om een excel bestand wat ik wil opslaan in een 2e gelijke bestand dus ook excel.

Klaas.

 

[edmoor]

Je kunt een macro maken die uitgevoerd wordt bij het opslaan van het bestand die hem dan ook opslaat als dat bestand met een andere naam.

 

[edmoor]

Bijvoorbeeld zoiets:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    ActiveWorkbook.SaveAs Filename:="C:\Book1.xlsx", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

    ActiveWorkbook.SaveAs Filename:="C:\Book1_Copy.xlsx", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Edit:
Ik heb het wel getest maar bij mij crashed Excel 2007 op de 2e save.
Misschien is er iemand die hiervan de oorzaak weet?