How do I save to a folder that is the current month and have it save to next month"

Hi Shikano53,

I have given a try. Below code is un tested........Give a try

what i did here is, i have formated current date to suit your monthly folder name "JULY" or "August" etc.,
Hope that is your monthly folder name..... having the current date + 1 ...that is next day......it take month as consideration as folder name for file to get saved.
So if the last day of month comes, folder name would be next month...Then file would get saved in next month folder.

Hope it helps......

HTML Code: 

If my answer helps you... Please add "Reputation" for my post....if you are happy with the help.

Originally Posted by prabhuduraraj09

Hi Shikano53,

I have given a try. Below code is un tested........Give a try

what i did here is, i have formated current date to suit your monthly folder name "JULY" or "August" etc.,
Hope that is your monthly folder name..... having the current date + 1 ...that is next day......it take month as consideration as folder name for file to get saved.
So if the last day of month comes, folder name would be next month...Then file would get saved in next month folder.

Hope it helps......

HTML Code: 

If my answer helps you... Please add "Reputation" for my post....if you are happy with the help.

Hi,
Sorry, no that does not work. Let me try and clarify if I can.
My original code works fine as long as the last folder I want to save to is 'July'.
What I want the code to do is to be dynamic enough to be able to determine that the next days date will be the first day of the next month and then save it in the folder named for the next month of the year.
For example. On July 31, when I run the macro, I would like the macro to be able to 'Save As' and place the saved workbook in a folder called August.
I hope that helps explain what I am trying to do.
All of the month folders are in a folder named '2014'
So that means in the folder named 2014 there are sub folders for each month. January, February, March, April - December.

Hi Shikano,

Apologise, i have done some tweaking now.......

If you see your file name "original log..xlsm" in code update with ".."before extension. ( Please check if that is correct )

Please replace the root path & your original log file appropriately & change file extension

in my comp with test path "It worked", i set my comp date to last date of month.........its working fine.
And then test in your system.

HTML Code: 

tried to add your path in my code...... please check before you give a try
updated file name as "original log.xlsm".....hope its correct!

HTML Code: 

If This code helped you achieve your requirement, please do add Reputation for me...... "Thank you"

Hi Shikano53,

the file name which you have mentioned in the code is "origina log..xlsm". which had dots in between.
Never mind. Just make sure, you check path and file name is appropriate.

And yes i did created folder name as August for testing purpose.

Well thank you, Hope it helps you.

Thank you,
Code works except it keeps opening a file called Chris.xlsm and I don't know why it does that. When I moved the file Chris.xlsm to a backup folder and ran the macro it gave me an error that said:

error.JPG

Also, when I tried the program at work with the following paths instead of my home path it only opened the original file and did not save it.
Here are the actual paths I need that I use at work.

C:\Users\Security\Desktop\Daily Logs DO NOT DELETE ‘ Root path for monthly folders
C:\Users\Security\Desktop\Original Forms ‘ file path of template excel file

Thank you and I'm sorry to bother you again.
Chris

Hi Shikano53,

Not a problem, i am happy to help you as much as possible.

would you be able to post the code, in which you are facing the above said issues?

will definitely have a look at it. Guess we are close to solution

Originally Posted by prabhuduraraj09

Hi Shikano53,

Not a problem, i am happy to help you as much as possible.

would you be able to post the code, in which you are facing the above said issues?

will definitely have a look at it. Guess we are close to solution

Yes, thank you so much!
Here is the code.

Sub saveas()

Dim strpath As String, strfolder As String, strfile As String
Dim d As Date
Dim wb1 As Workbook

strpath = " C:\Users\Security\Desktop\Daily Logs DO NOT DELETE\2014\"  ' root path for monthly folders
templatepath = "C:\Users\Security\Desktop\Original Forms\" & "Original Log..xlsm" 'file path of template excel file
d = Date
strfolder = Dir$(strpath & Format(d + 1, "mmmm"), vbDirectory)
strfile = Format(Now() + 1, "mmmm-dd-yyyy") & ".xlsx"
  
   Set wb1 = Workbooks.Open(templatepath)
Application.DisplayAlerts = 0
wb1.saveas (strpath & strfolder & "\" & strfile), FileFormat:=51, CreateBackup:=False
Application.DisplayAlerts = 1

End Sub

Hi Shikano53,

Please give a try with the below code,

HTML Code: 

[QUOTE=prabhuduraraj09;3768632]Hi Shikano53,

Please give a try with the below code,

That is AWESSOME! It works perfect!
Thank you so much for your kind help and for being patient with me!
Chris

Hi Chris,

Happy it worked for you. Thanks for your patience as well
Glad i helped you.

Could you please Rate this thread and Tag this thread as "Solved".

Do PM me if you post any future question in Forum.

see you

Thank you for your help.
I have tagged the thread 'solved' and I also rated it was well.

Kindly