Fichier bloqué à la fermeture

Bonjour,

je cherche une explication et une solution à ce problème suivant :

j'ai un fichier (F1) qui en ouvre un autre (F2)

je ferme F1 de cette façon:

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close savechanges:=False End Sub

---

ensuite je ne peux plus fermer F2 directement
par contre si je change manuellement de feuille sur F2 alors ensuite il se ferme bien

Quelle instruction utilisez-vous pour que le fichier (F1) en ouvre un autre (F2) ?

J'utilise

Code:

---

Workbooks.Open pathcatal

---

avec pathfile = chemin complet du fichier

les 2 fichiers sont dans le même répertoire

Salut.

Je suppose que ces fichiers sont liés à ton application multi-fichiers dont tu as déjà parlé sur ce forum. A priori, les codes que tu donnes ne posent pas de problème.

Si tu ouvres le fichier 2 sans passer par le fichier 1, tu peux le fermer sans soucis? Y-a-t-il du code dans le fichier 1 qui est exécuté avant qu'il soit fermé, ou sert-il "simplement" à ouvrir x fichiers? Combien de fichiers sont ouverts en même temps? Entre le moment où tu fermes le 1 et celui où tu fermes le 2, que fais-tu dans le 2? Y a-t-il par exemple des Application.ScreenUpdating = False qui n'auraient pas été remis à True? Normalement, ils se remettent à True en sortie de proc, au moment de rendre la main à Excel, mais dans certaines situations, ça ne se passe pas ainsi et il est toujours souhaitable de les rétablir par code.

Bonjour et merci de regarder mon problème,

Citation:

---

Je suppose que ces fichiers sont liés à ton application multi-fichiers dont tu as déjà parlé sur ce forum.

---

Oui, c'est un nouveau fichier

Citation:

---

Si tu ouvres le fichier 2 sans passer par le fichier 1, tu peux le fermer sans soucis?

---

Oui le fichier 2 est un catalogue qui ne contient que des données, il sert un peu partout sans problème dans l’application

Citation:

---

Y-a-t-il du code dans le fichier 1 qui est exécuté avant qu'il soit fermé, ou sert-il "simplement" à ouvrir x fichiers?

---

Oui le fichier 1 contient des macros qui font différents traitements, à noter que c’est un nouveau fichier donc probable que j’ai commis quelques erreurs, il n’ouvre pas d’autre fichier

Citation:

---

Combien de fichiers sont ouverts en même temps?

---

Uniquement fichier 1 et fichier 2

Citation:

---

Y a-t-il par exemple des Application.ScreenUpdating = False

---

Oui, mais j’ai lu sur ce forum que c’était faire du travail pour rien puisque remis à "True" en fin.
J’ai ajouté
Application.ScreenUpdating = True dans "Before_close" cela ne change rien

Par contre j'ai fait un autre test qui me laisse perplexe:

En plus des fichiers 1 et 2, j'ai ouvert manuellement un fichier Excel (fichier 3) qui n'a rien à voir avec l'application.

Je ferme fichier 1 et dans la foulée fichier 2 --> fichier 2 ne se ferme pas

Je ferme fichier 1, je vais sur fichier 3 sans rien y faire, je reviens sur fichier 2 il se ferme sans problème

au lieu de "ActiveWorkbook.Close savechanges:=False", essayez d'activer F2 avant de fermer F1. Je soupçonne un décalage dans les instructions ...

Bonjour

j'ai résolu le problème fermant le fichier avant l'exécution de "Sub Workbook_BeforeClose" et donc en supprimant

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close savechanges:=False End Sub

---