Comment fermer proprement une instance d'Excel ouvert avec VB ?

Bonjour,
Dans mon pgr VB j'ouvre un fichier Excel de la maniere suivante :

Code:

---

1 2 3 4 5 6 7 8 9

Public objExcel As Excel.Application Public objDocumentE As Excel.Workbook Public FeuilleExcel As Excel.Worksheet   Set objExcel = CreateObject("Excel.Application") Set objDocumentE = objExcel(L).Workbooks.Open(monfichierExcel) objExcel.DisplayAlerts = wdAlertsNone Set FeuilleExcel = objDocumentE.Sheets(1)

---

En controlant dans le "Gestionnaire des taches de Windows" (Ctrl + Alt + Suppr) s'ajoute alors un processus 'EXCEL' (faisant 2400k).

Apres avoir utilise le fichier, n'en n'ayant plus l'utilite, je le ferme de la maniere suivante (dans la meme fontion ou je l'ai ouvert):

Code:

---

1 2 3 4 5 6 7

objExcel.DisplayAlerts = True objDocumentE.Close True objExcel.Quit Set FeuilleExcel = Nothing Set objDocumentE = Nothing Set objExcel = Nothing

---

Mais la quand je regarde dans le "Gestionnaire des taches de Windows" je constate que le processus est toujours la !!! (il a simplement un peu diminue de taille).
Est-ce la procedure que j'utilise pour fermer Excel qui n'est pas fonctionnelle ou est-ce normal ?

En revanche, quand je ferme mon progarmme VB, la procedure Excel disparaît bien !!!! (sans code particulier ???)

Auriez-vous une explication ?

Bonjour,
Un erreur de désinstanciation est typique d'une erreur non gérée dans le code qui empêchera une destruction de l'object en cours.
Par curiosité, crée un formulaire avec un bouton pour l'instanciation et un bouton pour la désinstanciation sans code intermédiaire
et tu constateras que l'instance Excel est bien détruite ...

... enfin, en supposant que tu corriges déjà l'erreur

Code:

---

Set objDocumentE = objExcel(L).Workbooks.Open(monfichierExcel)

---

Dans tous les cas de figure :
1/ gérer les erreurs directes

Code:

---

if typename(objExcel)<>"Nothing" then ...

---

2/ utiliser systématiquement des gestionnaires d'erreurs

Code:

---

On Error goto errxxxx 'etc.

---

Voir tutoriel en rapport

Merci DarkVader pour cette reponse.
En faite, j'ai cerné ou est l'erreur (mais je ne me l'explique pas).
Apres avoir ouvert mon fichier excel, je vais chercher le nb de ligne renseignees en faisant:

Code:

---

1 2	Nbenreg = Range("A65536").End(xlUp).Row

---

Puis j'alimente un tableau avec les donnees du fichier en faisant une boucle

Code:

---

1 2 3 4

For i = 1 To Nbenreg   next

---

Et a la fin de la boucle, je ferme mon fichier
Ecrit tel quel, la fermeture du fichier ne marche. En revanche, si je remplace
Nbenreg = Range("A65536").End(xlUp).Row par Nbenreg = 2 par exemple, alors la ca marche bien !!!
Evidemment cela ne fait pas ce que je souhaiterai (lire toutes les lignes renseignees) mais la fermeture elle se passe bien. Cela veut donc dire que l'instruction

Code:

---

1 2	Nbenreg = Range("A65536").End(xlUp).Row

---

'bloque' le fichier en utilisation ? comment faire autrement si je veux boucler sur un nombre de ligne non connu a l'avance ?

Code:

---

Range("A65536").End(xlUp).Row

---

est une erreur de conception :
à quel parent penses-tu que l'object Range est attaché ?

Ok, j'ai change ma boucle et ca marche ;)
thanks