Fermeture d'un fichier à distance

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