Valider "oui" par code VBA

[lanoe]

Bonjour,

J'ai un code qui permet d'enregistrer le fichier en cours et d'enregistrer automatiquement une sauvegarde.

Dim NomFichier As String, Chemin1 As String, Chemin2 As String

Chemin1 = CStr(ThisWorkbook.ActiveSheet.Range("l1").Value)
Chemin2 = CStr(ThisWorkbook.ActiveSheet.Range("l2").Value)
NomFichier = Format("Gestplanning")
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)

Le code fonctionne parfaitement, mais à chaque activation du code j'ai le message:
"Un fichier nommé "Gestplanning" exite déja à cet emplacement. Voulez-vous le remplacer?"
qui apparait à deux reprise.
Est-il possible de ne pas avoir se message par un code qui validerais automatiquement "oui"?

merci à vous.
Lanoe

 

[PascalXLD]

Re : Valider "oui" par code VBA

Bonjour

essaye en ajoutant

Application.displayalerts=false
NomFichier = Format("Gestplanning")
ActiveWorkbook.SaveAs (Chemin2 & NomFichier)
ActiveWorkbook.SaveAs (Chemin1 & NomFichier)
application.displayalerts=true

 

[lanoe]

Re : Valider "oui" par code VBA

Re...

Parfait...

Merci,
lanoe