vb6 fermeture d'excel

**maxtin** · 05/12/2006, 16h42

comment fait-on pour fermer correctement un fichier excel avec vb? je fais ceci:

Code :

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

1
2
3
4
5
6
 
obWorkBook.close 'ferme le classeur
obExcelApp.quit   'ferme lapplication
 
set obWorkBook = nothing  'dereference le classeur
set obExcelApp = nothing  'dereference lapplication

mais jai toujours une instance dexcel qui run en background et ca me cause des problemes

merci a lavance

**BM42** · 05/12/2006, 18h05

salut Maxtin

Essai de remplacer :

Code :

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

obExcelApp.quit

Par :

Code :

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

Excel.Application.Quit

a+
Bernard

**maxtin** · 05/12/2006, 18h27

Envoyé par BM42

salut Maxtin

Essai de remplacer :

Code :

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

obExcelApp.quit

Par :

Code :

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

Excel.Application.Quit

a+
Bernard

merci de ta reponse, mais jobtiens le meme resultat...EXCEL.EXE est toujours la

**BM42** · 06/12/2006, 14h19

Salut Maxtin !

Comment charge tu excel ?

**maxtin** · 06/12/2006, 14h52

Envoyé par BM42

Salut Maxtin !

Comment charge tu excel ?

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
 
Dim obExcelApp As Object     ' Objet Appplication
Dim obWorkSheet As Object    ' Objet Feuille de calcul
 
Set obExcelApp = New Excel.Application
obExcelApp.DisplayAlerts = False
obExcelApp.Visible = False         
 
' Ajouter un nouveau classeur
 obExcelApp.Workbooks.Add
 
' Référencer la feuille de calcul active
Set obWorkSheet = obExcelApp.ActiveSheet
 
obWorkSheet.Cells(1, 1).Value = "TEST"
 
obExcelApp.Visible = True
 
....
 
'fermeture
 
obWorkBook.close 'ferme le classeur
obExcelApp.quit   'ferme lapplication
 
set obWorkBook = nothing  'dereference le classeur
set obExcelApp = nothing  'dereference lapplication