[VB6 + EXCEL 97] Le processus Excel reste en mémoireRésolu

Question

Hello,

Je suis en train de faire une application d'affichage de statistiques via VB6 avec un affichage de graphique dans EXCEL97.

Je rencontre un probl&#232;me lorsque j'ex&#233;cute + d'une stat dans mon programme.
En fait le processus "Excel" reste en m&#233;moire et me met une erreur &#224; partir de la 2sde ex&#233;cution de mes stats, donc oblig&#233; de passer par [Ctrl]+[Alt]+[Suppr] pour le fermer...

Quelqu'un aurait une id&#233;e du probl&#232;me ? Peut-&#234;tre que je ferme mal mon fichier ?

Voil&#224; le code de ma proc&#233;dure :

Private Sub GenererGraphExcel(NomGraph As String, cheminGraphExcel As String, Condition as String)
'Fonction qui va g&#233;n&#233;rer un fichier Excel contenant le graph demand&#233;
    Dim feuille As Worksheet '--> .Cells(Lig, Col)
    Dim graphique As Chart, fso As New FileSystemObject
    Dim rec As DAO.Recordset, i As Long, MonExcel As Object

    On Error GoTo ErrGenererGraphExcel
    Set MonExcel = CreateObject("Excel.Application")
    MonExcel.Visible = False
    MonExcel.UserControl = True
    MonExcel.Workbooks.Open FileName:=App.Path & "\Reports" & NomGraph & ".xls"
    Set feuille = MonExcel.Worksheets("Donn&#233;es")    feuille.Cells(1, 1) "Nom du responsable": feuille.Cells(1, 2) "Nombre de devis"
    Set rec = CreateSnapshot(Condition)
    i = 3
    While Not rec.EOF          feuille.Cells(i, 1) rec("Champ1"): feuille.Cells(i, 2) rec("Champ2")
          rec.MoveNext
          i = i + 1
          DoEvents
    Wend
    rec.Close
        
    'Enregistrement du fichier et MAJ du graphique
    If fso.FileExists(App.Path & "" & NomGraph & "_gen.xls") Then fso.DeleteFile App.Path & "" & NomGraph & "_gen.xls", True
    'On va modifier la plage de valeurs sources du graphique
    Set graphique = MonExcel.ActiveChart
    graphique.SetSourceData Source:=Sheets("Donn&#233;es").Range("A3:B" & CStr(i - 1)), PlotBy:=xlRows
    graphique.Refresh
    MonExcel.Workbooks(1).SaveAs App.Path & "" & NomGraph & "_gen.xls"
    MonExcel.Workbooks(1).Close
    MonExcel.Workbooks.Open FileName:=App.Path & "" & NomGraph & "_gen.xls"
    MonExcel.Visible = True
    GoTo Fin


ErrGenererGraphExcel:
    Select Case Err.Number
        Case 1004: 'SetSourceData du graphique
            Msgbox "Erreur, un processus Excel est d&#233;j&#224; ouvert !", vbExclamation
        Case 70: 'Permission refus&#233;e
            If MsgBox("Impossible d'enregistrer l'&#233;tat, le fichier " & App.Path & "\Reports" & NomGraph & "_gen.xls est d&#233;j&#224; ouvert !" & vbCrLf & "Cliquez sur Recommencer d&#232;s que le fichier est ferm&#233;.", vbRetryCancel) = vbRetry Then
                Resume
            Else
                GoTo Fin
            End If
        Case Else:
            If MsgBox("Erreur inattendue, cliquez sur Recommencer pour tenter une nouvelle fois l'op&#233;ration." & vbCrLf & "Erreur n&#176;" & Err.Number & " : " & Err.Description, vbRetryCancel) = vbRetry Then
                Resume
            Else
                GoTo Fin
            End If
    End Select


Fin:
End Sub

Merci d'avance pour votre aide :-)

Rrominet · Accepted Answer

eldim : On &#233;tait en VB6, et m&#234;me en adaptant la source de ton lien, on obtient rien.

J'ai fait ce qu'il fallait dans une appli test pour r&#233;cup&#233;rer les Id au d&#233;but et &#224; la fin de ma proc&#233;dure, afin de savoir quel Id d'Excel j'utilisais, mais j'ai beau tuer le processus, VB me met toujours une erreur lorsque j'ex&#233;cute une 2sde fois mon appli sans la quitter entre temps...
A croire qu'il y a un autre bug que celui dont parle la source donn&#233;e par Eldim...

Le meilleur moyen que j'ai trouv&#233; pour le moment est de cr&#233;er une application qui ne fera que g&#233;n&#233;rer le fichier Excel et qui s'auto-quittera une fois la g&#233;n&#233;ration termin&#233;e. Ca quitte ainsi tous les processus en cours et ne bloque pas les autres acc&#232;s &#224; Excel !

C'est pas top, mais &#231;a fonctionne &#224; coup s&#251;r :-)

Rrominet · Answer

Oops, j'allais oublier, bizarrement mon programme me met une erreur "1004" ou "-2147417851" en me disant que "La m&#233;thode 'SetSourceData' de l'objet '_Chart' a &#233;chou&#233;"...

Et &#231;a me bloque que sur cette ligne. Malheureusement sans cette ligne mon graphe ne donne pas grand chose :-)

Rrominet · Answer

En fait j'ai du nouveau, il semblerait que quand je fini ma proc&#233;dure je ne ferme pas mon objet de type "Excel.Application", ce qui fait que tant que je n'ai pas quitt&#233; mon appli principale, l'objet reste en m&#233;moire et pose probl&#232;me...

Comment ferme-t'on cet objet ?

MonExcel.Close me jette...

Encore merci pour vos (futures) r&#233;ponses ;-)

pseudoOM · Answer

Oui j'ai exactement le m&#234;me probl&#232;me mais avec Excel 2000 ! Je ne sais pas pourquoi, pourtant je met bien "nomObjetExcel.quit" quand j'ai fini mes op&#233;rations mais le processus reste quand m&#234;me en m&#233;moire. Bizar quand m&#234;me! D&#233;sol&#233; mais je ne sais pas t'aider plus ! Peut &#234;tre que quelqu'un d'autre le pourra (et pas la m&#234;me occasion, m'aider aussi) !

 pseudoOM

rooridge · Answer

Salut,

il faut d'abord fermer le/les workbook(s) en faisant :
"monObjetExcel.workbooks(i).close 0"
"0" pour fermer sans sauvegarder.

Puis killer le processus en faisant :
"monObjetExcel.Application.Quit"

Sans oublier l'objet :
"set monObjetExcel = nothing"

Comme dirait jean claude convenant, "j'ai bon l&#224;, nan ?"

++,
rooridge.

cs_eldim · Answer

Bonjour,

Y a d&#233;ja des tas de sujet la dessus...
Plusieurs solutions :
Kill du proces excel

ou plus simple
Encapsuler toutes les variables et les &#233;v&#233;nement Excel dans une m&#234;me class
Attention &#224; ne pas mettre ta variable de class public
Et Excel se terminera proprement...

Rrominet · Answer

Pour l'instant, pour me d&#233;panner j'ai fait un ex&#233;cutable s&#233;par&#233; qui s'ex&#233;cute pour chaque stat et qui se ferme automatiquement apr&#232;s l'avoir g&#233;n&#233;r&#233;e, Ca fonctionne sans probl&#232;me !

Mais je vais tester la solution de rooridge, le Set monObjet = Nothing est pas b&#234;te :-)
Je n'y avais pas pens&#233; !!

Pour ce qui est de killer le processus eldim, si jamais mon client a ouvert un Excel manuellement entre temps, je ne pourrais pas savoir lequel killer. Et si je kill les 2, &#231;a lui ferme aussi le sien sans sauvegarder. C'est un peu trop "hard" comme solution, m&#234;me si j'y avais song&#233; en dernier recours...

Merci pour vos r&#233;ponses ;-)

Rrominet · Answer

Je viens de tester vos solutions.

Malheureusement aucune ne fonctionne...
M&#234;me le KillProcess me fait quand m&#234;me une erreur sur la m&#233;thode "~" de l'objet "~" qui a &#233;t&#233; d&#233;charg&#233;e, alors que je recr&#233;e bien un objet de A &#224; Z (comme la premi&#232;re fois quoi).

Je vais rester sur mon petit ex&#233;cutable ind&#233;pendant, ce sera moins pratique mais au moins &#231;a tourne ;-)

Merci quand m&#234;me pour vos r&#233;ponses !!

cs_eldim · Answer

Va voir ma r&#233;ponse ici
&#231;a fonctionne
http://www.vbfrance.com/code.aspx?ID=27541

pseudoOM · Answer

Ok !  Moi j'ai test&#233; la solution de rooridge et elle fonctionne ! Merci beaucoup !

 pseudoOM

cs_eldim · Answer

Ah ok