Saving File With today's Date

[mrtim2232]

Morning all,

I created this macro to save my file to a specific folder and use todays date within the file name and it worked great in my test spreadsheet but when I tried to transfer the code across to my user spreadsheet it returns a problem which is. compile error: wrong number of arguments or invalid property assignment. I have pasted a copy of the code below. Any help on this issue would be appreciated.

Sub filesave()
ActiveWorkbook.SaveAs ("C:\Users" & Environ("username") & _
"\downloads\Saved Data\data" & Format(Now(), "DD-MM-YY hh mm AMPM") & ".xlsm")
End Sub

 

[SyedUsman]

Try This

Sub filesave()
ActiveWorkbook.SaveAs "C:\Users" & Environ("username") & _
"\downloads\Saved Data\data" & Format(Now(), "DD-MM-YY hh mm AMPM") & ".xlsm", xlOpenXMLWorkbookMacroEnabled
End Sub

 

[Fluff]

Not sure if this is the problem, but you're missing a \ after users.
It may however have been stripped out the software.

 

[Logit]

Not sure if this is the problem, but you're missing a \ after users.
It may however have been stripped out the software.

Also missing after data :

"\downloads\Saved Data\data\"

 

[mrtim2232]

Hi All,

Thanks for your help so far I have tried your suggestions and although its cleared it up a bit I'm still stuck with the original error and when I debug this error it highlights the "format" part of the code. For some reason it works on my trial sheet and even works if I run the trail macro on my running sheet.