save file with current date

hi, I am trying to do something simple in excel 2013 vba but it's not working. I just want to save a version of the active workbook in the existing subdirectory but with a date stamp at the end of the file name. I am using the code below. appreciate any help.

Please Login or Register  to view this content.

I got a 1004 error.

yes, xladept. I go the 1004 on both replies. It says

Method 'SaveAs' of object'_workbook' failed

I used this and it worked.

Please Login or Register  to view this content.

Note you may have revise your code

Please Login or Register  to view this content.

thanks john. it is very close; however the filename is just the date. I'd like to keep the original filename and append the date to it.

@ xladept I just copied the line of code you sent as is

Maybe:

Please Login or Register  to view this content.

@ john davis it kind of worked once but when I went to do it again it gives me a 1004 error again and my current active workbook is renamed to sheetname29_Jun-17

thanks sintek. I think it does work but I got a warning about the file extension when I tried to open it again. as far as I can tell it's the same file content so nothing seems to be missing, but will keep checking.

Originally Posted by xi603

@ john davis it kind of worked once but when I went to do it again it gives me a 1004 error again and my current active workbook is renamed to sheetname29_Jun-17

It worked when I tested it. I'd have to see the actual code you are using. There is nothing in the code which would change the name of the workbook and there would be a space between the workbook name and the current date.

thanks sintek. you last msg is not showing up here, although I saw it in email. it does work now, but am curious why the file icon does not look like the other macro files or even the regular xlsx files.

I see the other messages now.

hi sintek, the macro works fine but I think it is saving the file in an older version hence the different icon and my saved file is much bigger than the excel 2013 version I am using. is there a way to save it in excel 2013 format?

i looked on the internet and changed the file format to 52 and it seems to work although the icon still looks a little different. thx for everyone's help!

@sintek I figured it out. I just had to save it as an xlsm file. thanks for all your help.