Eviter debog avec macro en fermeture de fichier

  • Initiateur de la discussion Initiateur de la discussion chris6999
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chris6999

XLDnaute Impliqué
Bonjour

J'ai positionné sur le workbook en fermeture du fichier une macro permettant d'enregistrer une copie de ce dernier
dans un réperoire sur un chemin prédéfini.

ChDir "........................"
ActiveWorkbook.SaveAs Filename:="...mon chemin\répertoire..." & "copie fichier " & Range("A1") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Cela fonctionne très bien si je choisis d'enregistrer le fichier en fermeture.
Par contre si je ne souhaite pas l'enregistrer il affiche un message d'erreur 1004.

Je cherche le petit code qui va bien à ajouter à ma macro pour ignorer l'anomalie lorsque je ne souhaite pas enregistrer le fichier.

Merci d'avance pour votre aide
Cordialement
 
Re : Eviter debog avec macro en fermeture de fichier

Bonjour.
Mettez un point d'arrêt sur l'instruction qui demande si on veut ou non enregestrer une copie (c'est SaveCopyAs, d'ailleurs, pas SaveAs) et déroulez en pas à pas jusqu'à rencontrer l'erreur. Mettez des espions sur les expressions testées s'il s'apprête à exécuter une instruction que vous n'aviez pas prévu d'exécuter.
 
Re : Eviter debog avec macro en fermeture de fichier

Bonsoir

J'ai trouvé il s'agissait de "Application.DisplayAlerts = False"

Merci




Bonjour.
Mettez un point d'arrêt sur l'instruction qui demande si on veut ou non enregestrer une copie (c'est SaveCopyAs, d'ailleurs, pas SaveAs) et déroulez en pas à pas jusqu'à rencontrer l'erreur. Mettez des espions sur les expressions testées s'il s'apprête à exécuter une instruction que vous n'aviez pas prévu d'exécuter.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
890
Réponses
20
Affichages
3 K
Retour