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