Auto Save after each loop but bypass "file already exists, do you want to save anyway?"

[Bret1]

I'd like to auto-save a looping Macro at end of each loop I run each day. I only need the latest "save", so I want it to save over the previous saves for that day. I found the simple code method below that looks like it will work, but I need help tweeking it some....
I need it to allow it to save over the previous save without the pop-up asking for permission to copy over existing file.
I need it to save as "Auto Save" & Today's date.... Such as, "Auto Save 10-18-22"
I would like to designate the name of the folder it saves to (inside the Macro only).... Currently, it saves to my general Documents folder

Here is the code I found...

Dim newName As String
    newName = "Auto Save"
    ActiveWorkbook.SaveAs Filename:=newName

 

[Micron]

newName = "Auto Save"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=newName
Application.DisplayAlerts = True

but why bother with a string variable if it's that simple? Why not just
ActiveWorkbook.SaveAs "Auto Save"

Doesn't anybody Google anymore?

 

[Bret1]

I found and tweeked this that works pretty well. Is there a way I can make it copy over the previous save that has the same date? This Macro loops every 5 minutes throughout the day and this is only for back up purposes. The current code below adds a new file for each new loop. At the end of the day, I only need one back up that shows the last back up time, but know that it backed up after each loop.

      Application.ScreenUpdating = False
Application.DisplayAlerts = False
        With ActiveWorkbook
            .SaveAs "C:\Users\.............." & "\" & Format(Now, "mm-dd-yyyy hh-mm") & " "
            '.Close
        End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True

 

[Micron]

Maybe try Name statement instead of ActiveWorkbook.SaveAs
You're complicating this by adding time value in the name - you can't rename a file if you don't know its full path. Unless you either store the last filename in a module level variable I don't know how else you'd know that. The 1st time it runs, the variable would have no value, so you'd have to work around that as well.
If variable = "" Then
<< simply save without prompt
Else Name variable As NewFileNameGoesHere

This might give you a start

VBA Name

Guide to VBA Name. Here we discuss how to use Excel VBA Name Function along with practical examples and downloadable excel template.

www.educba.com

 

[Bret1]

Maybe try Name statement instead of ActiveWorkbook.SaveAs
You're complicating this by adding time value in the name - you can't rename a file if you don't know its full path. Unless you either store the last filename in a module level variable I don't know how else you'd know that. The 1st time it runs, the variable would have no value, so you'd have to work around that as well.
If variable = "" Then
<< simply save without prompt
Else Name variable As NewFileNameGoesHere

This might give you a start

VBA Name

Guide to VBA Name. Here we discuss how to use Excel VBA Name Function along with practical examples and downloadable excel template.

www.educba.com

 

[Bret1]

Thanks for your help. I think this one will work fine. As long as I know it's being backed up after each loop, I don't need it to save a time stamp. Just the date is enough. I can view when it was last saved.
Thanks!

    Application.ScreenUpdating = False
Application.DisplayAlerts = False
        With ActiveWorkbook
            .SaveAs "C:\Users\............" & "\" & " IntraDay Updates" & Format(Now, "mm-dd-yyyy") & " Backed Up Every 5 Minutes" & " "
            '.Close
        End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True

 

[Micron]

I don't need it to save a time stamp.

Then you might as well just use Date as opposed to using Now then formatting it as a date?
"IntraDay Updates" & Date() or" IntraDay Updates" & Date