Discussion :

[fernier]

j'ai cree une liaison avec Excel, j'arrive a recuperer les donnees mais le procesu continu de tourner meme apres ca destruction
voila mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'declaration
Dim xlApp As Microsoft.Office.Interop.Excel.Application
 
'instanciation
xlApp = CType(CreateObject("Excel.Application"), _ Microsoft.Office.Interop.Excel.Application)
 
'destruction?
xlApp.Quit()
xlApp = Nothing

Excel n'apparait plus mais le processus reste actif...

[peregna2007]

Je ne comprend pas trop bien ton problème. Détail un peu plus. Et si possible donne ton code complet pour qu'on puisse y voir clair

[Danyel]

Peut etre

Code :

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

xlApp.Dispose()

[Skalp]

Plusieurs solutions à ton problème dans ce post : [VB.NET][C#] Automatisation Excel : Fermer le processus Excel récalcitrant

[fernier]

skalp: je n'arrive pas a voir ton liens un pb de permission?

j'ai mis tout le code. je ne fais rien d'autre entre les lignes(pour le test bien sur), Excel ce ferme bien.
If IsNothing(xlApp) revoie bien true. mais le processus EXCEL reste dans la liste des processus windows.

[Danyel]

skalp: je n'arrive pas a voir ton liens un pb de permission?

Normal c'est une section private et skalp à dû l'oublier
Voici le code qui doit t'interesser :

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
29
30
31
32
33
34
35
Private Sub CreateExcelProcess()
 
            ' Liste des processus avant le mien
            Dim Process1() As Process = Process.GetProcesses()
            _xlApp = New Microsoft.Office.Interop.Excel.Application()
 
            ' Liste des processus après le mien : la différence me donnera l'Id du mien
            Dim Process2() As Process = Process.GetProcesses()
 
 
            Dim i, j As Integer
            Dim bMonProcessXL As Boolean
            For j = 0 To Process2.GetUpperBound(0)
                If Process2(j).ProcessName = "EXCEL" Then
                    bMonProcessXL = True
                    ' Parcours des processus avant le mien
                    For i = 0 To Process1.GetUpperBound(0)
                        If Process1(i).ProcessName = "EXCEL" Then
                            If Process2(j).Id = Process1(i).Id Then
                                ' S'il existait avant, ce n'�tait pas le mien
                                bMonProcessXL = False
                                Exit For
                            End If
                        End If
                    Next i
                    If bMonProcessXL = True Then
                        ' Maintenant que j'ai son Id, je pourrai le tuer
                        '  xlApp.Hinstance ne fonctionne pas avec Excel 2000
                        '  alors que cette méthode marche toujours !
                        ProcId = Process2(j).Id
                        Exit For
                    End If
                End If
            Next j
        End Sub

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
29
30
31
32
33
34
35
 
Public Sub Close()
            Try
                If Not _xlSheet Is Nothing Then
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlSheet)
                    _xlSheet = Nothing
                End If
 
                If Not _xlBook Is Nothing Then
                    _xlBook.Close()
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlBook)
                    _xlBook = Nothing
                End If
 
                If Not _xlApp Is Nothing Then
                    _xlApp.Quit()
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(_xlApp)
                    _xlApp = Nothing
                    Quitter()
                End If
            Catch ex As Exception
                TraceNLog(ex)
            End Try
        End Sub
 
        Public Sub Quitter()
            Try
                If ProcId = 0 Then
                    Exit Sub
                End If
                Process.GetProcessById(ProcId).Kill()
            Catch ex As Exception
                TraceNLog(ex)
            End Try
        End Sub