[VB6] Fermeture Excel

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:

---

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:

---

1 2 3 4 5 6 7 8

WB.Close False Set WS = Nothing Set WB = Nothing     XL.Quit Set XL = Nothing

---

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:

---

On Error Resume Next

---

mal placé peut expliquer ce comportement.

Argy

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

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

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)

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?

Tout le code du 1er post est dans 1 sub

Code:

---

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

Citation:

---

XL.Quit
Set XL = Nothing

---

Essaie :

Code:

---

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+

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:

---

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

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?

Citation:

---

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 :oops:

un petit

Code:

---

unload me

---

ne suffirait'il pas????

Citation:

---

Envoyé par calimero91

un petit

Code:

---

unload me

---

ne suffirait'il pas????

---

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

Citation:

---

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

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

Code:

---

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!

apres verification le

Code:

---

XL.quit

---

fonctionne tres bien chez moi.