Discussion :

[Birmania]

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 :

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

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

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 !

[petit rabot]

Tu peux essayer la fonction kill violent mais ça fonctionne

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

[DarkVader]

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 :

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

[petit rabot]

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

Code :

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

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.