1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Fermer correctement excel - kill excel

Fermer correctement excel - kill excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 902 fois - Téléchargée 21 fois

Commenter

Contenu du snippet

Bonjour à tous,

Je sais que certains ont des problèmes pour fermer complètement Excel, c'est à dire s'assurer qu'aucun processus Excel ne persiste dans le Task Manager. Je ne sais pas exactement à quoi c'est du, une histoire de framework compliquée, de destruction d'objet dans la mémoire bref...

Je vous donne une solution plutôt radicale qui consiste à tuer le procesus Excel. Le code est issu de quelques recherches sur des sites anglais principalement (je ne me souviens plus des sites) je l'ai simplement ordonné et épuré. Il y avait beaucoup d'autres sources avec de bonnes idées de solutions, mais celle-ci est la seule qui marche à chaque fois.

PRINCIPE:
Chaque procesus a un ID, un numéro unique qui l'identifie. Lors de la création d'un procesus Excel (donc lors du lancement de l'application), Windows lui affecte un ID. Il nous faut donc récupérer cet ID pour pouvoir par la suite le tuer (kill, lorsque l'on a terminé avec lapplication Excel)

ETAPES:
1. Pour récuperer l'ID, on liste tous les procesus EXCEL et on récupère (dans un tableau) leur ID respectif
2. On lance l'application Excel (oExcelApp = New Excel.Application etc.) et on liste de nouveau les IDs Excel. Nous avons donc récupéré dans cette nouvelle liste le nouvel ID correspondant à l'application Excel que nous venons de lancer.
3. Il nous reste à comparer les 2 listes pour récupérer l'ID du procesus Excel que l'on vient de lancer.
4. Nous pourrons "killer" le procesus par son ID lorsque nécessaire, sans toucher aux autres sessions Excel exitantes, c'est donc transparent pour l'utilisateur de votre programme.

Voilà, je vous avais prévenu, c'est radical mais c'est définitif, je l'ai testé sur plusieurs machines, avec frameworks 1.1, 2.0, 3.0, cela marche à chaque fois. J'espère en avoir aidé certains.
A plus,

Greg

C'est ma première source, soyez indulgents :P

Source / Exemple : 


Imports Microsoft.Office.Interop

' Lancer Excel, ouvrir un fichier, fermer Excel :
Public Class Test
        Dim oExcelApp As New MSExcelApp

        ' Start Excel application (invisible session) and open Excel file
        ' Ouvre Excel en session invisible, et ouvre un fichier Excel
        With oExcelApp
            .Start(False)
            .OpenFile("c:\fichier_excel.xls")

            ' Faites ce que vous voulez ici

            ' Quitte Excel
            .Quit()
        End With
End Class

Public Class MSExcelApp

    Public Shared oExcelApp As Excel.Application
    Private intID As Int16

    Public Sub Start(ByVal blnVisible As Boolean)
        ' Start Excel, the application can be visible or not (blnVisible)
        ' Lance Excel, l'application peut être visible ou non (blnVisible)

        ' List all the running Excel processes
        ' Liste tous les procesus Excel en cours
        Dim intFirstIDs() As Int16 = MSExcelApp.ListID()

        ' Open Excel
        ' Ouvre Excel
        oExcelApp = New Excel.Application
        oExcelApp.Visible = blnVisible

        ' List one more time all the running Excel processes, so we can compare with the first list
        ' Liste de nouveau tous les procesus Excel en cours, pour pouvoir comparer avec la première liste
        Dim intLastIDs() As Int16 = MSExcelApp.ListID()

        ' Get the ID
        ' Extraction de l'ID grâce à la comparaison des 2 listes
        intID = MSExcelApp.ExtractID(intFirstIDs, intLastIDs)
    End Sub

    ' Ouvre un fichier Excel
    Public Sub OpenFile(ByVal strAbsolutePath As String)
        oExcelApp.Workbooks.Open(strAbsolutePath)
    End Sub

    ' Ferme Excel en tuant le procesus, nous devons lui fournir en paramètre l'ID récupéré
    ' lors de la création de la session Excel
    Public Sub Quit()
        Try
            Process.GetProcessById(intID).Kill()
        Catch ex As Exception
            MessageBox.Show(ex.Message & ex.StackTrace, "Error while closing Excel.", _
                MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

    ' Fonction qui liste les procesus
    Private Shared Function ListID() As Int16()
        ' Get the ID's processes list in a array and sort it
        ' It is the only way to close Excel:
        ' To close Excel, we need to list the Excel ID's processes  before user starts excel
        ' then we list them one more time just after opening Excel.
        ' We compare both of the lists we have to extract the new Excel ID of the brand new fucking Excel 
        ' session.  So we can kill this process with the ID we got, without killing other Excel user
        ' session.
        ' L'explication ci-dessus résume l'explication générale de la méthode, cf présentation du code

        ' Get ID's processes list
        Dim Processes As Process() = Nothing
        Processes = Process.GetProcessesByName("EXCEL")

        ' Load ID Processes in Array
        Dim intProcesses(Processes.GetUpperBound(0)) As Int16
        Dim i As Int16
        For i = 0 To Processes.GetUpperBound(0)
            intProcesses(i) = CInt(Processes(i).Id.ToString)
        Next

        Return intProcesses
    End Function

    ' Fonction qui compare les 2 listes de IDs, et nous renvoie l'ID voulu.
    Private Shared Function ExtractID(ByVal intFirstIDs As Int16(), ByVal intLastIDs As Int16()) As Int16
        Dim intID As Int16 = Nothing
        Dim intID_FirsList As Int16 = Nothing
        Dim intID_LastList As Int16 = Nothing
        Dim i As Int16 = Nothing

        For i = 0 To intLastIDs.GetUpperBound(0)
            intID_LastList = intLastIDs(i)

            If Array.IndexOf(intFirstIDs, intID_LastList) = -1 Then
                intID = intID_LastList
                Exit For
            End If
        Next

        Return intID
    End Function
End Class

Conclusion :


J'espère aussi que les "boss" de la programmation épureront/amélioreront cette source pour qu'elle soit parfaite !

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
2
Date d'inscription
jeudi 6 avril 2006
Statut
Membre
Dernière intervention
23 août 2007
Suggestion, dans ton With oExcelApp, il y a une fois où tu utilise la variable elle même sans aucune utilité, ce qui fait que le tier de tes lignes de code pourraient être sorti du With. Il faut rester constant ;)
Signaler
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
Déjà fait !

XLDOTNET : QUITTER EXCEL SANS LAISSER D'INSTANCE EN RAM
www.vbfrance.com/code.aspx?ID=27541

La dernière version gère aussi Word :
http://patrice.dargenton.free.fr/CodesSources/VBXL.vbproj.html#7
Voir VBXL : www.vbfrance.com/code.aspx?ID=17783
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.