Add Date & Time Stamp to File Name When Saved

[MikeeRDX]

Hi,

I would like to have a date and time stamp as part of my file name whenever I click on a button to save my worksheet as a backup copy. I know how to do it with just a date, but I also would like to add a time stamp as well since the worksheet can be saved multiple times throughout the day. I would like to have a date & time stamp to save any updates as a file separate file. Is this possible and if so, how would you write the VBA code?

Thank you everyone for your help.

 

[Michael M]

How are you doing the backup copy now ?
With a macro ?
If so, post what code you already have.
If not, maybe this

Sub SaveIt()
Dim dt As String, wbNam As String
wbNam = ThisWorkbook.Name
dt = Format(Date, "yyy_mm_dd_hh_mm")
ActiveWorkbook.SaveAs Filename:=wbNam & " " & dt & ".xlsm"
End Sub

 

[MikeeRDX]

Hi,

Thanks for your help. I used your code but this is what the file ends up saving as : WbName_09_16_2014_00_00_00.xlsm

The code I've been using is this:

Sub SaveMeDaily()
myDateStamp = Format(Date, "mmddyyyy")
FilePath = ThisWorkbook.Path & "/" & myDateStamp & ".xlsm"
ThisWorkbook.SaveCopyAs (FilePath)

End Sub

 

[dermie_72]

change the DT line to

dt = Format(Now, "yyyy_mm_dd_hh_mm")

 

[Michael M]

Oops typo

Sub SaveMeDaily()
wbNam = ThisWorkbook.Name
myDateStamp = Format(Now(), "mmddyyyyhhmmss")
FilePath = ThisWorkbook.Path & "\" & wbNam & " " & myDateStamp & ".xlsm"
ThisWorkbook.SaveAs (FilePath)

End Sub

 

[MikeeRDX]

Thank you for your help! It worked but the time is in military: 18 33. Anyway we can make that 6:33PM?

 

[Michael M]

Try

Sub SaveMeDaily()
wbNam = ThisWorkbook.Name
myDateStamp = Format(Now(), "d/mm/yyyy[$-409]h:mm:ss AM/PM")
FilePath = ThisWorkbook.Path & "\" & wbNam & " " & myDateStamp & ".xlsm"
ThisWorkbook.SaveAs (FilePath)

End Sub