Overwrite

[sandernoteborn]

Kan iemand me helpen met een macro regel om een bestand op te slaan. Ik heb al de volgende macro die het bestand opslaat. Alleen vraagt hij nu telkens over ik hem wil overwriten! Hoe kan ik deze melding niet laten komen en in de macro alvast een overwrite toestaan!

Dit is mijn macro:

ChDir "G:\R\G\A\BestandA"
ActiveWorkbook.SaveAs ("G:\R\G\A\Bestand A" & ".xls")
ActiveSheet.Protect

Iemand een idee?
Alvast bedankt

 

[jheesterbeek]

Dim File01
File01 = "G:\R\G\A\Bestand A" & ".xls"
If Dir(File01) <> "" Then
    Kill File01
End If

de code verwijderd het bestand als deze al bestaat

 

[koosl]

Sandernoteborn,

ChDir "G:\R\G\A\BestandA"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ("G:\R\G\A\Bestand A" & ".xls")
Application.DisplayAlerts = True
ActiveSheet.Protect


koosl