Eviter debog avec macro en fermeture de fichier

chris6999 · 15 Mai 2014

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

Dranreb · 15 Mai 2014

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.

chris6999 · 4 Juin 2014

Re : Eviter debog avec macro en fermeture de fichier

Bonsoir

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

Merci

Dranreb à dit:
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.

Eviter debog avec macro en fermeture de fichier

chris6999

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

chris6999

XLDnaute Impliqué

Discussions similaires