Message d'avertissement lors d'une copie de feuille vers un autre fichier

Bonjour,

J'ai un message d'avertissement lorsque je souhaite effectuer une copie de ma feuille facture vers un autre fichier.

Ça marche mais lorsque je lance mon programme il me dit : "Pour enregistrer un fichier avec ces fonctionnalités, cliquez sur Non, puis sélectionnez un type de fichier prenant en charge les macros dans la liste Type de fichier

Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur Oui."

Voici mon programme :

With Worksheets("Facture")
fichier = "\" & .Range("B6") & .Range("C6") & "-" & .Range("D2") & ".xlsx"
Dossier = "C:\Users\Elise\Documents\BCT\Factures clients\Excel"
chemin = Dossier & fichier
.Copy
ActiveSheet.SaveAs Filename:=chemin
ActiveWindow.Close
End With

Comment faire pour que je n'ai plus ce message ? Merci pour votre aide.

Bonjour

With Worksheets("Facture")
Application.DisplayAlerts = False
fichier = "\" & .Range("B6") & .Range("C6") & "-" & .Range("D2") & ".xlsx"
Dossier = "C:\Users\Elise\Documents\BCT\Factures clients\Excel"
chemin = Dossier & fichier
.Copy
ActiveSheet.SaveAs Filename:=chemin
ActiveWindow.Close
Application.DisplayAlerts = True
End With

Merci beaucoup !

Rechercher des sujets similaires à "message avertissement lors copie feuille fichier"