Problème de non-fermeture de Excel.exe

Version imprimable

Bonsoir,

Je viens vous voir car j'ai un problème quant à la fermeture d'une feuille Excel via VB6.

En effet, lorsque j'exécute mon code, le processus Excel.exe reste dans la table des processus...

Voila mon code :

Code Visual Basic :
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 Private Sub BP_Valider_Click() Dim fichierExcel Dim wbExcel Dim i As Integer chemin = App.Path + "\BDGesport.accdb" Set base = OpenDatabase(chemin) Set fichierExcel = New Excel.Application fichierExcel.Workbooks.Open ES_LienFichier.Text Set wbExcel = fichierExcel.ActiveWorkbook For i = 1 To 3 'List1.AddItem wbExcel.Worksheets(1).Range("A1").Value Next i fichierExcel.Quit Set wbExcel = Nothing Set fichierExcel = Nothing base.Close End Sub
Seulement cette erreur n'apparait que lorsque la ligne :
Code Visual Basic :

Code:

List1.AddItem wbExcel.Worksheets(1).Range("A1").Value

n'est plus en commentaire. Je me posais donc la question que cette ligne crée peut être une référence vers l'objet de type Excel Application ce qui ferait que le garbage collector ne supprime pas l'objet.

Auriez-vous une idée d'où pourrez venir le problème et/ou de comment le résoudre s'il vous plait ?

Merci beaucoup à vous d'avance et je vous souhaite de passer une excellente soirée !

12/02/2011, 12h32
petit rabot

Tu peux essayer la fonction kill violent mais ça fonctionne
12/02/2011, 14h10
OhMonBato

Bonjour,

je te conseille de faire une recherche sur ce forum avec les termes "fermeture Excel", tu trouveras plusieurs sujets Resolus, relatifs a ce probleme.

Comme, c'est lié à une erreur de code et une non gestion des erreurs - par exemple :
- absence de vérifications ( ex: workbooks.open myVar avec myVar non vérifiée)
- incohérence dans la destruction d'objects
etc.

Rien que dans la partie de code que tu cites, quelques modifications

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
Private Sub BP_Valider_Click()
    Dim fichierExcel  As Excel.Application
    Dim wbExcel As WorkBook
    Dim i As Integer
 
    'Base, chemin ' déclarations?
    chemin = App.Path + "\BDGesport.accdb"
    Set base = OpenDatabase(chemin)
 
    ' Auparavant Vérifier si Excel existant et Workbook non ouvert avec GetObject
    Set fichierExcel = New Excel.Application
 
    ' Vérifier si LienFichier.Text existe
    fichierExcel.Workbooks.Open ES_LienFichier.Text
    Set wbExcel = fichierExcel.ActiveWorkbook
    
Set wbExcel =fichierExcel.Workbooks.Open( ES_LienFichier.Text)    
    For i = 1 To 3
        'List1.AddItem wbExcel.Worksheets(1).Range("A1").Value
    Next i
 
    fichierExcel.Quit
 
    Set wbExcel = Nothing
    Set fichierExcel = Nothing
    
    base.Close
End Sub

14/02/2011, 11h04
petit rabot

Citation:

Envoyé par Birmania

Seulement cette erreur n'apparait que lorsque la ligne :
Code Visual Basic :

Code:

List1.AddItem wbExcel.Worksheets(1).Range("A1").Value

C'est normale que cette erreur n'apparaît que lorsque tu as cette ligne active. Lorsque tu la mets en commentaire, le cycle d'ouverture et de fermeture d'excel s'effectue du début jusqu'à la fin. Mais lorsque tu passe par cette ligne (qui doit avoir un problème), tu stop le déroulement de ton programme par le bouton arrêt de vb, et du coup, tu ne fermes pas excel. Ce qui fait que excel est toujours actif dans le gestionnaire.
Comme le signal DarkVader au dessus, il faut que tu gères les erreurs et que cela te ferme la session excel.