automatically save over an existing excel document

[hopelessliar]

Below is my code to automatically update a file when users open this workbook. What I want to know is, can I prevent the dialogue asking whether to replace the existing file and just automatically replace it?

Thanks


Sub Autpen()

'Routine to automatically update the reccydata file in the root of users' drives

Workbooks.Open FileName:= _
"M:\PLANNING\Develop\Luc\New Reccy\J&J Reccy\JJreccydata_Master.xls" _
, UpdateLinks:=3
ActiveWorkbook.SaveAs FileName:="C:\JJreccydata.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
MsgBox ("Data File Updated - Pressing OK will close this workbook&quot
ActiveWindow.Close

End Sub

 

[Loomah]

Set display alerts to false ie

Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\My Documents\book2.xls"
Application.DisplayAlerts = True

;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[rmikesmith]

lucmcconnel,

Try this modification:

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs FileName:="C:\JJreccydata.xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Application.DisplayAlerts = True

HTH
Mike

 

[rmikesmith]

Loomah,

How are you, mate?

Your fingers be quicker than mine!!


Regards,
Mike

 

[hopelessliar]

Thanks guys. Exactly what I needed.

 

[Loomah]

Mike
Fine thanks! How about you?

Quiet Xmas tho and football wasn't up to much!
Still unemployed so having a little break before I hit the Evening Standard!:-D

;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[rmikesmith]

Loomah,

I'm good, thanks. Must admit, I'm relieved to have the holidays behind me. Now I can get on with the important business of ignoring New Years resolutions!!

Here's hoping you snag something worthwhile in the employment dept.


Mike