• Initiateur de la discussion Initiateur de la discussion Guy
  • 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 !

G

Guy

Guest
Bonjour,

J'ai une macro dans word qui à un moment donné ouvre un fichier Excel puis lance la macro de ce fichier Excel.

Tout fonctionne très bien mais ma macro Word termine sur ' Erreur d'automation '440'.

Comment empêcher cela ou alors que mettre à la fin de la macro Word pour que le choix de la Msgbox d'ereur soit ' Fin'.


Ma macro Word :



Sub export_txt()



'réalisé avec l'aide de l'enregistreur de macro
''Le fichier .doc est enregistré sous 'Microbio_export.txt' avec le chemin par défaut en 'C: mes documents' Paramètre de convertion de fichier : choisir insérer des sauts de ligne

'N.B. : ce fichier .txt est remplacé par un nouveau à chaque lancement de cette macro
ChangeFileOpenDirectory 'G:\\Bulletin test\\'
ActiveDocument.SaveAs FileName:='Microbio_export.txt', FileFormat:= _
wdFormatText, LockComments:=False, Password:='', AddToRecentFiles:=True, _
WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _
LineEnding:=wdCRLF

'fermeture du fichier Word.txt
ActiveWindow.Close



'ouvrir le fichier 'Bulletins_Microbio.xls'
Dim exl As Object
Set exl = CreateObject('excel.application')
exl.Visible = True
exl.Workbooks.Open ('G:\\Bulletin test\\Bulletins_Microbio.xls')
'lancer la macro Ecxcel 'export_microbio' qui est contenue dans ce fichier
exl.Run ('Bulletins_Microbio.xls!export_microbio')


End Sub




La partie en gras est celle ou apparait la Msgbox d'erreur, mais toute la macro Excel s'est bien exécutée dans Excel.





Merci d'avance

Guy
 
- 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
19
Affichages
3 K
R
Réponses
1
Affichages
3 K
M
Retour