instances excel et close

bonjour,

Je force l'ouverture du classeur A dans une autre instance :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Private Sub Workbook_Open() ThisWorkbook.Close False End Sub   Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim XlAp As Excel.Application Dim Wb As Workbook Dim Ch1$ Dim Fich$ Ch1 = ThisWorkbook.Path & "\MonDossier\" Fich = "A.xls" Set XlAp = CreateObject("Excel.Application") 'autre instance XlAp.Workbooks.Open (Ch1 & "\" & Fich) XlAp.Visible = True Set XlAp = Nothing If Workbooks.Count = 1 Then Application.Quit End Sub

---

Cela c'est OK.
A partir de ce classeur A, j'ouvre un classeur "Mod-Fact.xls", le renomme, le sauve :

Code:

---

1 2 3 4 5 6 7 8

ChDos = ThisWorkbook.Path & "\Modèle\" ChFich = "Mod-Fact.xls" ch2="001" Ch3 = "Fact-" & Ch2 & ".xls"   Workbooks.Open (ChDos & ChFich)   Workbooks(ChFich).SaveAs ThisWorkbook.Path & "\Fact\" & Ch3

---

Encore OK, part contre, quand je fais :

Code:

---

Workbooks(ChFich).close

---

le tous les classeurs ouverts ce cette instance se ferment, alors que je ne veux fermer que "ChFich".

d'ou vient mon erreur ?
Merci de vos pistes

Bonjour,

Une chose me chiffonne.

Tu ouvres un classeur dont le nom se retrouve dans la variable ChFich.
Ensuite tu le sauves sous le nom repris dans la variable Ch3.
Ton classeur porte donc ce nouveau nom.
Pourquoi cherches-tu à le fermer avec son ancien nom?

D'ailleurs, je me demande pourquoi tu ouvres une nouvelle instance d'Excel...

De plus, si je regarde une partie de ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim XlAp As Excel.Application Dim Wb As Workbook Dim Ch1$ Dim Fich$ Ch1 = ThisWorkbook.Path & "\MonDossier\" Fich = "A.xls" Set XlAp = CreateObject("Excel.Application") 'autre instance XlAp.Workbooks.Open (Ch1 & "\" & Fich) XlAp.Visible = True Set XlAp = Nothing If Workbooks.Count = 1 Then Application.Quit End Sub

---

tu crées une instance Wb pour pointer sur un Workbook mais tu n'en fais rien.
tu aurais dû écrire

Code:

---

Set Wb = XlAp.Workbooks.Open (Ch1 & "\" & Fich)

---

Idem pour le classeur que tu sauves en le renommant.

Code:

---

1 2 3 4 5 6 7

Dim wbk1 As Workbook Set wbk1 = Workbooks.Open(ChDos & ChFich)   wbk1.SaveAs ThisWorkbook.Path & "\Fact\" & Ch3   ' ... wbk1.close

---

Je n'ai aucune idée si ces changements règleront ton problème mais, au moins, tu auras un code plus propre.

bonjour,

merci tout d'abord pour votre réponse.

Erreur de ma part (dans le message seulement) pour close, je ferme bien le classeur sous son nouveau nom.

Le "set Wk" n'a pas résolu mon pb.

Dans le classeur "A", excel est "transparent" : aucune barre outil, ruban...,
juste des boutons de commandes. Je force donc son ouverture dans un nouvelle instance pour que l'utilisateur puisse travailler sur des classeurs "normaux" (avec ouverture avant ou après "A").

Apparemment, à partir du classeur A:
- si j'ouvre un classeur B sans macro, je peux fermer le B
- si j'ouvre un classeur C avec macros, quand je ferme C, il me ferme A aussi??

pourtant ds C e n'ai aucun événement before close ou activate...

Bonjour,

je me dis personnellement que si tous tes classeurs se ferment, c'est que tu fermes excel.

Voici extrait de ton code :

Code:

---

If Workbooks.Count = 1 Then Application.Quit

---

Et non le

Code:

---

If Workbooks.Count = 1 Then Application.Quit

---

est dans le classeur initial servant juste à ouvrir le classeur A dans une autre instance, donc aucune influence avec l'instance du classeur A
(vérifié avec le gestionnaire des taches)

OK,
alors tourne ton code en debug pour trouver où et pourquoi cela ferme plusieurs classeurs.;)

c'est à dire : ??

en pas à pas détaillé ?

si c'est le cas j'ai déjà essayé et tout se ferme sur la ligne " wb.close"

Peut-être que si tu montrais ton code dans son état actuel ce serait un peu plus facile, non ?:calim2:

Code du classeur "X" servant juste à ouvrir "A" dans une autre instance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Private Sub Workbook_Open() ThisWorkbook.Close False End Sub   Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim XlAp As Excel.Application Dim Ch1$, Fich$ Ch1 = ThisWorkbook.Path & "\MonDossier\" Fich = "A.xls" Set XlAp = CreateObject("Excel.Application") 'autre instance XlAp.Workbooks.Open (Ch1 & "\" & Fich) XlAp.Visible = True Set XlAp = Nothing If Workbooks.Count = 1 Then Application.Quit End Sub

---

A partir de ce classeur A, j'ouvre un classeur "Mod-Fact.xls", le renomme, le sauve :

Code:

---

1 2 3 4 5 6 7 8

ChDos = ThisWorkbook.Path & "\Modèle\" ChFich = "Mod-Fact.xls" ch2="001" Ch3 = "Fact-" & Ch2 & ".xls"   Workbooks.Open (ChDos & ChFich)   Workbooks(ChFich).SaveAs ThisWorkbook.Path & "\Fact\" & Ch3

---

C'est quand je cherche à fermer ch3 que tout se ferme (y compris "A")

Code:

---

Workbooks(Ch3).close

---

Voici le code que j'ai mis dans le classeur A.xls:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Workbook_Open() Dim Ch2 As String Dim Ch3 As String Dim ChDos As String Dim ChFich As String Dim Wb As Workbook ChDos = ThisWorkbook.Path ChFich = "Mod-Fact.xls" Ch2 = "001" Ch3 = "Fact-" & Ch2 & ".xls"   Set Wb = Workbooks.Open(ChDos & "\" & ChFich)   Wb.SaveAs ThisWorkbook.Path & "\Fact\" & Ch3 Wb.Close   End Sub

---

et, curieusement, A.xls ne se ferme pas.

Tires-en les conclusions que tu veux.

Bonjour

Alors là , AlainTech, je ne te suis plus et ton message n'est pas clair !

D'abord je n'ait jamais dis que ce code était dans open du classeur "A"
ensuite mon problème est que le classeur "A" se ferme aussi

et je ne comprends rien à ta réponse!

Citation:

---

Envoyé par AgnesK

D'abord je n'ait jamais dis que ce code était dans open du classeur "A"

---

Ben, justement.
Tu nous donnes un extrait de code sans nous dire ni où il se trouve ni comment il est lancé.
J'ai donc essayé de deviner ton besoin et ai pris du temps pour tenter de reproduire ton problème.

J'ai donc créé un classeur qui en ouvre un autre (A.xls) dans une autre instance et se ferme.
Pour ce premier classeur, je me suis basé sur ton code.

Le classeur A, en s'ouvrant, ouvre le template et le sauve sous un nouveau nom.
Pour le test, dans la même procédure, j'ai fait fermer la copie et je constate que A ne se ferme pas.

Qu'est-ce qui n'est pas clair?

Code:

---

1 2 3 4 5 6 7 8

ChDos = ThisWorkbook.Path & "\Modèle\" ChFich = "Mod-Fact.xls" ch2="001" Ch3 = "Fact-" & Ch2 & ".xls"   Workbooks.Open (ChDos & ChFich)   Workbooks(ChFich).SaveAs ThisWorkbook.Path & "\Fact\" & Ch3

---

est dans un bouton de commande d'un USF du classeur "A"

Code:

---

Workbooks(Ch3).close

---

est dans un bouton formulaire d'une feuille du classeur "Ch3"


En fait excel plante (j'avais désactivé les messages d'erreurs) et ferme tout sur "Workbooks(Ch3).close"

le message d'erreur est

AppName: excel.exe AppVer: 9.0.0.2719 ModName: mso9.dll
ModVer: 9.0.0.2812 Offset: 000201cd


Moi, ça ne me parle pas du tout!

Rebonjour,

aurais-tu la patience de tester le code comme AlainTech te le propose pour voir si de cette manière cela plante aussi.

Cela pourrait faire avancer les choses je crois.

Eh... laisse bien les messages d'erreur actifs et toute gestion d'erreur inactive s'il te plait.:roll:

----Edit----
Ceci me chifonne un max

Citation:

---

.. est dans un bouton de commande du classeur CH3

Code:

---

Workbooks(Ch3).close

---

---

Il doit pas aimer le CH3 !!

J'ai essayé de remplacer Ch3 par

Code:

---

workbooks("Fact-001.xls").close

---

ou par

Code:

---

Thisworkbook.close

---

excel plante toujours


La patience, j'en ai toujours, cela fait 2 jours que je bute sur ce pb!, mais ds le code de alaintech , le close n'est pas dans le bon classeur.

Citation:

---

mais ds le code de alaintech , le close n'est pas dans le bon classeur.

---

Pas tout à fait d'accord.

Qu'est ce qui t'empêche d'avoir dans ton excel appelant le code pour :
1) ouvrir le modèle
2) faire le saveas puis manipuler éventuellement
3) fermer le résultat

Autre option :
Tu utilises Fcopy pour copier ton modèle vers ton fameux CH3 puis tu ouvres le résultat.

D'expérience quand ça foire bien, il ne faut pas hésiter à remettre tous les acquis en cause et tester de la manière la plus basique possible.

Souvent, on s'aperçoit qu'il y a une erreur de conception qui est la cause du problème, mais bien sûr parfois c'est un vrai bug.

A ta place, je changerais mon fusil d'épaule.

Je ne comprends toujours pas pourquoi c'est CH3 lui-même qui se ferme, mais soit.
Si CH3 est seul dans son instance Excel, tu peux aussi essayer de fermer carrément excel directement. (Application.Quit).

J'ai essayé de mettre un wait (3 secondes) avant le close et dès fois ça marche et des fois ça plante.Je crois que je vais tout remettre à plat comme conseillé!


Il y a surement quelque chose qui m'échappe ds la nouvelle instance d'excel

cette nouvelle instance ou j'ouvre "A", puis "Mod-Fact.xls" que je nomme et sauve en "Fact-" & Ch2 & ".xls"="Ch3"

j'ai donc 2 classeurs ds mon instance "privée" et je cherche à revenir sur "A" après avoir fermé ch3.

J'ai essayé de fermer ch3 à partir de lui ou de "A", les 2 font planter excel.

Le "application.quit" ferme tous les classeurs de l'instance dont ils dépendent,
les classeurs ouverts ds une autre instance ne seront pas concerné ?

Est-ce correct?

Citation:

---

Est-ce correct?

---

Je crois. Essaie

Code:

---

Application.quit

---

dans un module tournant dans ta nouvelle instance, dans A.xls par exemple.

Il n'y aurait pas du code dans le Workbook_Close du template?

Après une remise à plat et un bon nettoyage de code,
le pb est résolu.

Merci pour vos conseils.