Problème fermeture d'un fichier

Bonjour à tous,

Voilà, j'ai une macro qui ouvre des fichiers excels à distance, y récupère des informations, puis ferme ces macros, sauf que dans certains cas au moment de la fermeture, la macro plante et m'affiche le message suivant: "microsoft excel attend la fin de l'exécution d'une action OLE d'une autre application".

Comment faire pour y remédier please ?

voici le résumé du code que j'utilise:

public sub aidez_moi ()
dim appxl as Excel.Application
set appxl=CreateObject("excel.application")

Set mon_fichier=appxl.windows(bat)
mon_fichier.activate
nb_onglets=appxl.sheets.count

appxl.Workbooks(bat).Close ' c'est là que ça plante !!!

end sub

Bonjour,

Essayez en plaçant un DoEvents avant la ligne qui plante :

'...
DoEvents
appxl.Workbooks(bat).Close