Save Backup Workbook With Macro

[Twollaston]

Hello there,

I'm trying to find a macro that I can add to my quick access toolbar to be able to save the file as, with the current file name and the date and time added.
to this path
C:\Users\wwollaston\Documents\Files\Backups\


For Example,

I'm in a workbook named Workbook1 and I run the macro, now I should have a file saved here
C:\Users\wwollaston\Documents\Files\Backups\Workbook1 8.6.2019 3:32PM.xlsx

 

[lrobbo314]

Does this work? You can't have : in a file name, so the time is separated by a period.

Sub Backup()
Dim path As String: path = "C:\Users\wwollaston\Documents\Files\Backups\"
ThisWorkbook.SaveAs path & "Workbook1 " & Format(Now(), "m.d.yyyy h.nn am/pm") & ".xlsm", xlOpenXMLWorkbookMacroEnabled
End Sub

 

[Twollaston]

Hey thanks a lot for helping me lrobbo, your code helped me find exactly how to do what I wanted!

 

[xenou]

You can try my addin for this if you like

http://trypots.net/srv/xl-bk.html

 

[Twollaston]

You can try my addin for this if you like

http://trypots.net/srv/xl-bk.html

Thank you Xenou!
That's really cool how the original file doesn't get saved and only the backup file will get the edited parts, that's how I was trying to set mine up, but couldn't figure it out.
I appreciate you sharing this with me!

 

[xenou]

great I'm glad it's helping out.