[EXCEL] Fermeture d'un fichier Excel

Bonjour à tous,

A l'aide de différents bouts de code trouvé à droite à gauche.

J'arrive à :
- Ouvrir un fichier Excel.
- A lire ce qu'il y a à l'interieur.

Cependant lorsque mon script est fini d'exécuter, je vois toujours le process EXCEL.EXE tourner dans mon gestionnaire de tâche.

Voici mon bout de code :

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 25 26 27 28 29

' Déclaration de variable Dim classeur Dim feuille Dim xlapp   'Création application Excel Set xlapp = CreateObject("Excel.Application")   'Ouverture de l'interface Excel ==> OUI xlapp.Visible = True   'Ouverture du fichier Excel dans l'application XLAPP set classeur = xlapp.workbooks.open ("c:\tmp\MonClasseur.xls")   'Déclaration d'une feuille set feuille = classeur.sheets(1)   'Récupération d'une valeur dans le tableau et Affichage msgbox feuille.range("A2")   'Fermeture du fichier dans XLAPP classeur.close   'Exit XLAPP xlapp.quit   'Initialisation des variable à NULL Set classeur = Nothing Set xlapp = Nothing

---

Pourtant sur la fin, mon XLAPP.QUIT ferme bien ma fenêtre Excel vu que j'ai déclaré l'application XLAPP visible.


Merci d'avance pour votre aide,

.Matt

Je vais killer le PROCESS avec ce script :

Code:

---

1 2 3 4 5 6 7 8 9 10

strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'EXCEL.EXE'")   For Each objProcess in colProcessList objProcess.Terminate() Next

---

.Matt