Discussion :

[AgnesK]

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]

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]

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]

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]

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]

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