instances excel et close

**AgnesK** · 01/11/2010, 14h53

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

**AlainTech** · 01/11/2010, 20h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Idem pour le classeur que tu sauves en le renommant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**AgnesK** · 02/11/2010, 12h18

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...

**Godzestla** · 02/11/2010, 12h32

Bonjour,

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

Voici extrait de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Workbooks.Count = 1 Then Application.Quit

**AgnesK** · 02/11/2010, 16h34

Et non le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**Godzestla** · 02/11/2010, 16h58

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

**AgnesK** · 02/11/2010, 17h13

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"

**Godzestla** · 02/11/2010, 17h45

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

**AgnesK** · 02/11/2010, 17h58

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Workbooks(Ch3).close

**AlainTech** · 02/11/2010, 22h06

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**AgnesK** · 03/11/2010, 10h45

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!

**AlainTech** · 03/11/2010, 10h57

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?

**AgnesK** · 03/11/2010, 12h45

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**Godzestla** · 03/11/2010, 12h52

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.

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

.. est dans un bouton de commande du classeur CH3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(Ch3).close

Il doit pas aimer le CH3 !!

**AgnesK** · 03/11/2010, 14h12

J'ai essayé de remplacer Ch3 par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Godzestla** · 03/11/2010, 15h02

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).

**AgnesK** · 03/11/2010, 15h58

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?