SaveAs : Comment forcer l'enregistrement d'un fichier existant sans répondre OK

[Christophe]

Bonjour,

Je génère un nombre important de fichiers avec SaveAs, portant le nom de différents pays :

For i=1 to 70

ActiveWorkbook.SaveAs Filename:=pays(i) & ".XLS", FileFormat:=xlNormal

Next i


A chaque itération, je suis obligé de cliquer sur "OK", pour forcer l'enregistrement du fichier-pays déjà existant, ce qui pour 70 pays est plutôt énervant !

-> Comment forcer la réponse "OK" avec VBA à l'apparition de la fenètre "voulez-vous remplacer le fichier déjà existant ?"

En vous remerciant par avance, car je sèche !!!

Christophe

 

[sousou]

Ajoute cette instruction avant ton enregistrement.
Elle supprime les messages d'alertes
Mais attention! de remettre displayalerts=true afin de traiter les erreurs éventuelles.

Application.DisplayAlerts = False