Discussion :

[GarsDuCalvados]

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 :

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

[GarsDuCalvados]

Je vais killer le PROCESS avec ce script :

Code :

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

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