Save a file with a date using a macro in an excel report

For one of my weekly reports, I had to save the file with the current date so instead to rename the file manually, I created this code so it will save automatically with the date.

macro excel


When I use the macro ?

To save a copy free of macro.


How to create the macro ?

Read How to create, edit, hide and select a macro in an excel report


How to create the button to associate it with the macro ?

Read How to create a button and associated it to a macro in an excel report


How is the macro ?

Copy the code below and paste it into your macro. You will see my comments in green if existso follow the help to adapt to your need.

Sub test()
Dim FilePath As String
Dim Newname As String
' change xxxx to the folder you want to save ie C:\Users\Downloads\
FilePath = "xxxx"
' change xxxx by a name you want and change dd-mm-yyyy if need be ie dd/mm/yyyy
Newname = "xxxx" & Format(Date, "dd-mm-yyyy") & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=FilePath & Newname, FileFormat:=51
ThisWorkbook.Close SaveChanges:=True
End Sub

Interesting Management