Macro d'enregistrement

[foliedti]

Bonjour,
j'ai créer une macro pour supprimer des lignes et des colonnes et pour enregistrer le fichier dans un répertoire avec un nom spécifique.

La macro fonctionne bien mais comme le fichier existe j'ai une fenêtre qui s'ouvre pour me demander d'écraser le fichier, comment faire pour forcer l'enregistrement en écrasant le fichier sans l'intervention de l'utilisateur.

Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
ChDir "P:\Avertissements-viticoles\Essai Macro Pour JMB"
ActiveWorkbook.SaveAs Filename:= _
"P:\Avertissements-viticoles\Essai Macro Pour JMB\Echecfax.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False


Application.DisplayAlerts = False
Application.Quit

 

[Caillou]

Re : Macro d'enregistrement

Bonjour,

comment faire pour forcer l'enregistrement en écrasant le fichier sans l'intervention de l'utilisateur

En déplacant la ligne DisplayAlerts avant la ligne SaveAs

Caillou

 

[foliedti]

Re : Macro d'enregistrement

Super,

depuis hier j'ai fait plusieur essai et la en quelques secondes vous m'avez donné la solution.

merci.