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