Say 'YES' to overwrite file

[Mike G.]

Dear Guru's and Experts:

I'm sure this is a simple one for you.

I want my script to automatically reply "YES" when
prompted if I wish to overwrite a file.

My existing coding is ...
'Save the file
ActiveWorkbook.SaveAs Filename:=fsn

Your guidance and help is appreciated and gives me more
knowledge.

Best regards, Mike
mailto:[email protected]

 

[Tom Ogilvy]

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fsn
Application.DisplayAlerts = True

 

[Harald Staff]

I want my script to automatically reply "YES" when
prompted if I wish to overwrite a file.

No, you don't want the question there in the first place:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fsn
Application.DisplayAlerts = True

HTH. Best wishes Harald

 

[Mike G.]

Thanks

-----Original Message-----


No, you don't want the question there in the first place:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fsn
Application.DisplayAlerts = True

HTH. Best wishes Harald


.

 

[Mike G.]

Thanks

-----Original Message-----
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fsn
Application.DisplayAlerts = True

--
Regards,
Tom Ogilvy




.

 

[Tod]

While the Guru's and Experts are pondering this one, I can
offer a suggestion. Get the name of the file to save as,
delete it if it exists, then save yours. Like this:

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\MyFiles\")
For Each file In f.Files
If file.Name = "fsn" Then
fso.DeleteFile "C:\MyFiles\fsn"
End If
Next file

 

[Tom Ogilvy]

Easier would be

On Error Resume Next
Kill "C:\MyFiles\fsn"
On Error goto 0