Macro to Auto Save File Periodically

[skf786]

Hello,

im looking for a macro to auto save my file 'xyz' as a backup on the 1st and 15th of each month. backup file name shall be xyz-backup-dd-mm-yyyy and it shall be saved in the same folder where the original file is saved.

Many thanks

kf

 

[KOKOSEK]

How do you want to trigger it?

 

[skf786]

How do you want to trigger it?

Well, it can run automatically when the file is opened for the first time on the 1st or 15th of a month OR anytime after these dates.

 

[KOKOSEK]

Try:
(into ThisWorkBook code)

Private Sub Workbook_Open()
mfile = Split(ThisWorkbook.Name, ".")
backupFile = ThisWorkbook.Path & "\" & mfile(0) & "-backup-" & Format(Now, "dd-mm-yyyy") & "." & mfile(1)
If Day(Now) = 1 Or Day(Now) = 15 Then
    ThisWorkbook.SaveCopyAs backupFile
End If
End Sub

 

[skf786]

Try:
(into ThisWorkBook code)

Private Sub Workbook_Open()
mfile = Split(ThisWorkbook.Name, ".")
backupFile = ThisWorkbook.Path & "\" & mfile(0) & "-backup-" & Format(Now, "dd-mm-yyyy") & "." & mfile(1)
If Day(Now) = 1 Or Day(Now) = 15 Then
    ThisWorkbook.SaveCopyAs backupFile
End If
End Sub

that is an awesome code thank you so much.

have a nice day

KF

 

[KOKOSEK]

Happy to help.