Workbook qui ne se ferme pas

pierrax

XLDnaute Nouveau
Bonjour à tous,

En début de code j'ouvre un workbook :

Code:
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Worksheets("Options").Range("rFichierPerformPlus").Value

    Set wk = ActiveWorkbook

Après plusieurs lignes de code, je ferme le workbook :

Code:
wk.Close SaveChanges:=False

Dans mon application Excel, le classeur s'est bien fermé. Mais dans Microsoft Visual Basic, le classeur est toujours présent dans la liste de projets. Je n'ai jamais eu de problème avec cette technique.

À la première exécution tout fonctionne, le code est A1.

Mais, si j'exécute le code une deuxième fois (avec le classeur toujours ouvert dans Visual Basic dans la liste des projets) j'ai l'erreur :

Erreur d'entrée/sortie de périphérique (erreur 57)

P.S. La classeur que le code ouvre contient des macros, a-t-il un moyen de ne pas exécuter les macros Workbook_Open et Workbook_Close de ce classeur? Pour l'instant, j'ai ajouté un if qui vérifie si le premier classeur est ouvert, si oui alors n'exécute pas le code d'ouverture. Et de même pour la fermeture.

Est-ce que cela peut avoir un lien avec les macros qui sont dans le fichier à ouvrir?

Merci à l'avance!
 

Discussions similaires

Statistiques des forums

Discussions
312 304
Messages
2 087 070
Membres
103 453
dernier inscrit
Choupi