[VB6] Fermeture Excel

**MonsieurPaul** · 06/01/2006, 15h42

Bonjour,

je rencontre un problème déjà abordé sur le forum mais je ne trouve pas de solution (posts supprimés) :
quand je ferme mon fichier excel, le processus excel.exe tourne toujours...

voici l'ouverture de mon fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
 
Set XL = New Excel.Application
XL.Visible = False
 
 
Set WB = XL.Workbooks.Open(App.Path & "\MonFichier.XLS")
Set WS = WB.Worksheets("MAFEUILLE")

et la femeture :

Code :

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

1
2
3
4
5
6
7
8
 
WB.Close False
Set WS = Nothing
Set WB = Nothing
 
 
XL.Quit
Set XL = Nothing

**argyronet** · 06/01/2006, 18h40

Bonjour,

S'il n'y a pas de gestion d'erreur efficace dans ton code et de fait, si erreur il y a, tu ne peux pas l'intercepter car en OLE Automation, c'est plus difficile.
Pose quelques mouchards comme des Debug.Print pour voir s'il va bien jusqu'au bout de la procédure...

Un simple et dangereux

Code :

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

On Error Resume Next

mal placé peut expliquer ce comportement.

Argy

**MonsieurPaul** · 07/01/2006, 12h00

Bonjour,

je n'ai pas de gestion d'erreur actuellement, pas de resume next....
et je vais bien jusqu'au bout de ma procédure.....

**SfJ5Rpw8** · 07/01/2006, 12h19

et entre les 2 codes ... tu n'ouvre pas d'autre classeur excel ?

**MonsieurPaul** · 07/01/2006, 14h54

non, aucun autre classeur n'est ouvert...

En ne faisant quouvrir le classeur et en le refermant, le proccessexcel.exe reste quand même (malgré le .quit)

**zazaraignée** · 07/01/2006, 15h53

Salut

Peut-on voir où exactement tes lignes de code sont insérée, dans quelles procédures?

Tes variables XL, WB et WS sont-elles déclarées globales?

**MonsieurPaul** · 09/01/2006, 08h40

Tout le code du 1er post est dans 1 sub

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
19
20
21
22
23
24
 
Private Sub Excel()
 
Dim XL As Excel.Application 
Dim WB As Excel.Workbook 
Dim WS As Excel.Worksheet 
 
Set XL = New Excel.Application 
XL.Visible = False 
 
 
Set WB = XL.Workbooks.Open(App.Path & "\MonFichier.XLS") 
Set WS = WB.Worksheets("MAFEUILLE") 
 
 
WB.Close False 
Set WS = Nothing 
Set WB = Nothing 
 
 
XL.Quit 
Set XL = Nothing
 
End Sub

J'ouvre, je ferme et excel.exe reste...

ce problème a déjà été abordé dans plusieurs posts dont celui-ci
http://www.developpez.net/forums/viewtopic.php?t=416838

**ouskel'n'or** · 09/01/2006, 09h48

XL.Quit
Set XL = Nothing

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
WB.Close False 
Set WS = Nothing 
Set WB = Nothing
 
Doevents  'Est censé laisser au système le temps de fermer le fichier (???)
With XL
     .Quit
End With
Set XL = Nothing 'je suis dubitatif quant à l'utilité "ici" de la dernière ligne...

A+

**argyronet** · 09/01/2006, 10h50

Hummm...
Le code de MonsieurPaul est correct.
Il faudrait que nous voyons ce dernier complet car si le thread Excel persiste, c'est qu'il y a quelque chose qui empêche de fermer.
Du fait que MonsieurPaul mette en

Code :

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

XL.Visible=False

, il ne peut pas voir ce qui se passe... Par exemple, s'il y a un message de confirmation ou quelque chose de similaire qui empêcherait Excel de se fermer.

Donc... MonsieurPaul, à vous

Argy

**calimero91** · 09/01/2006, 10h55

pour info meme avec XL.visible=False les message d'erreur au de confirmation excel apparaisse a l'ecran donc cela ne vient pas de ça.

monsieur paul as tu derouler ton programme en mode pas à pas pour bien verififier la desallocation memoire de excel?

**ouskel'n'or** · 09/01/2006, 14h05

car si le thread Excel persiste, c'est qu'il y a quelque chose qui empêche de fermer

Effectivement, et pour voir un message éventuel, peut-être serait-il utile de fermer le classeur, je ne vois pas de VB.close false

A +

J'ai rien dit

**calimero91** · 09/01/2006, 14h09

un petit

Code :

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

unload me

ne suffirait'il pas????

**argyronet** · 09/01/2006, 14h19

Envoyé par calimero91

un petit

Code :

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

unload me

ne suffirait'il pas????

Hummm... Unload Me est réservé aux UserForms !!!

Envoyé par ouskel'n'or

Effectivement, et pour voir un message éventuel, peut-être serait-il utile de fermer le classeur, je ne vois pas de VB.close false

WB.close False est bien présent dans son code

Je pense qu'il serait judicieux d'attendre l'intervention du posteur !!!

Argy

**zazaraignée** · 09/01/2006, 14h31

Salut

J'avale mon second café et les gars veinnent de partir pour l'école... C'est beau le décallage...

J'ai essayé le même code en séparant la déclaration de variables, l'ouverture et la fermeture d'excel... et pas de problèmes...

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
19
20
21
22
Option Explicit
Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
 
Private Sub cmdQuitter_Click()
'fermeture
WB.Close False
Set WS = Nothing
Set WB = Nothing
'quitter
XL.Quit
Set XL = Nothing
End
End Sub
 
Private Sub Form_Load()
Set XL = New Excel.Application
XL.Visible = False
Set WB = XL.Workbooks.Open(App.Path & "\MonFichier.XLS")
Set WS = WB.Worksheets("MAFEUILLE")
End Sub

Mais j'avoue n'y rien comprendre!