FERMER EXCEL CORRECTEMENT ET SIMPLEMENT

Commentaire de Kornebrume le 08/10/2007 10:25:43

C'est la seule solution de fermer excel. Si tu fais un xlApp.Close() cela ferme la fenêtre mais le processus est toujours actif dans ton gestionnaire des tâches.

Si tu as une solution plus adaptée et moins contraignante, n'hésite pas çà m'intéresse.

Cordialement,

Kornebrume

Commentaire de Kornebrume le 08/10/2007 14:13:15

xlBook.close()?

xlApp=NOTHING?

Je t'assure qu'en faisant les deux çà ne fonctionne pas, ton processus est toujours actif.
Si tu y arrives autrement, propose-nous ton code.

Merci à toi.

Cordialement.

Commentaire de Kornebrume le 08/10/2007 15:16:03

Donc d'après vous en faisant :

xlBook.close()
xlApp.Quit()
xlApp=nothing

on libère toute la ressource utilisée par notre appli Excel?

Commentaire de Adn56 le 24/10/2007 18:06:21

donc pour Kornebrume j'ai envie de dire YEP ! ca roule ^^
enfin attendons les réactions des sachants ;)
++

Commentaire de Adn56 le 26/10/2007 19:47:36

à mince !
et du coup tu conseils quoi ?

Commentaire de diampa le 30/10/2007 15:40:33

Très bien ton code et Vraiment merci car je lutte vraiment contre ce phenomène.
Dieu merci.
Ton code est vraiment impécable voici comment je l'ai adapter à mon projet

Module Module1
    'Public oExcelApp As New MSExcelApp
    Public sEnft As Byte
    Public appExcel As Excel.Application
    '       Déclarations pour classeur Excel
    Public Classeur As Excel.Workbook
    Public Feuil1 As Excel.Worksheet, Feuil2 As Excel.Worksheet, Feuil3 As Excel.Worksheet
    Public Feuil4 As Excel.Worksheet, Feuil5 As Excel.Worksheet, Feuil6 As Excel.Worksheet
    Public Feuil7 As Excel.Worksheet
    'Public NomClasseur As String = "C:\GeStocks\BD.xls"
    Public myIDExcel As Int16
    Public Sub OuvrirClasseur()

        'L'idée ici est de récupérer la liste d'ID des process qui tournent sur le PC. On recupère la
        'liste avant de faire un New et on recupère la liste après avoir fait le New. Ainci il ne reste
        'plus qu'à faire la différence des 2 listes grâce à la fonction ExtractID(,) pour retrouver le
        'bon ID de notre process Excel. Il ne reste plus qu'à la killer une fois notre application
        'terminée.
        'Première liste
        Dim intFirstExcelIDs() As Int16 = ListID()
        'Création de notre objet et attribution de l'ID
        'Seconde liste

        Try
            appExcel = CType(CreateObject("Excel.Application"), Excel.Application)
            'Ouverture d'un fichier Excel

            Classeur = appExcel.Workbooks.Open(Filename:="C:\GeStocks\BD.xls", UpdateLinks:=0, ReadOnly:=False, Format:=5, Password:="diamp789")
            Feuil1 = CType(Classeur.Worksheets("EntreStocks"), Excel.Worksheet)
            Feuil2 = CType(Classeur.Worksheets("SortiStocks"), Excel.Worksheet)
            Feuil3 = CType(Classeur.Worksheets("BonEntre"), Excel.Worksheet)
            Feuil4 = CType(Classeur.Worksheets("BonSortie"), Excel.Worksheet)
            Feuil5 = CType(Classeur.Worksheets("EntreImmob"), Excel.Worksheet)
            Feuil6 = CType(Classeur.Worksheets("SortImmob"), Excel.Worksheet)
            Feuil7 = CType(Classeur.Worksheets("QteRestant"), Excel.Worksheet)

            'xlApp.Workbooks.Open(NomClasseur)
        Catch ex As Exception
            MsgBox("*****  IMPOSSIBLE D'OUVRIR LE FICHIER EXCEL  *****")
        End Try
        Dim intLastExcelIDs() As Int16 = ListID()
        'Différence des 2 listes et récupération de notre ID
        myIDExcel = ExtractID(intFirstExcelIDs, intLastExcelIDs)

    End Sub

    'Public Sub FermerClasseur()
    '       Fermeture du classeur
    '   Try
    '        Classeur.Save()
    '         Classeur.Save()
    '        Classeur.Close() 'Fermeture du classeur Excel
    '        appExcel.Quit() 'Fermeture de l'application Excel
    'Désallocation(mémoire)
    '         Feuil1 = Nothing
    '        Feuil2 = Nothing
    '       Feuil3 = Nothing
    '      Feuil4 = Nothing
    '       Feuil5 = Nothing
    '        Feuil6 = Nothing
    '       Feuil7 = Nothing
    '      Classeur = Nothing
    '     appExcel = Nothing
    'Catch ex As Exception
    '   End Try
    ' End Sub
    Public Function ListID() As Int16()
        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
    Public 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
    Public Sub FermerClasseur(ByVal intIDExcel As Int16)
        If intIDExcel <> 0 Then
            If Process.GetProcessById(intIDExcel).HasExited = False Then
                Try
                    Process.GetProcessById(intIDExcel).Kill()
                    intIDExcel = 0
                Catch ex As Exception
                    MessageBox.Show(ex.Message & ex.StackTrace, "Error while closing Excel integration.", _
                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
        End If
    End Sub

End Module

Commentaire de simodel le 11/02/2009 11:57:36

salut tt le monde j'ai un vrai souci, je n'arrive pas à faire pareil sous VB6
c'est à dire dénicher l'ID du processus Excel delaissé dans la mémoire après fermeture d'EXCEL et le tuer sans toucher aux autres sessions Excel ouvertes.

Je vous remercie par avance