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

[Skalp]

Normal c'est une section private et skalp à dû l'oublier

Ben figure-toi que je ne savais même pas qu'il était dans une section privée
Le post a été déplacé depuis que je l'ai rédigé car je l'avais mis dans la section publique de "Contribuez"

J'apporte quelques précisions sur le bloc de code récupéré par Danyel en copiant la fin de mon message d'origine :

La solution la plus valable pour associer le processus Excel à l'objet d'automation est de récupérer l'identifiant du processus Excel. Il n'existe pas ma connaissance de méthode permettant de récupérer cet identifiant à partir de l'objet application Excel.

L'astuce proposée par dietrich (voir le code VB.NET dans le post de Danyel) consiste à lister les processus avant et après l'instanciation et de récupérer l'identifiant du processus supplémentaire en recherchant la différence entre ces deux listes.
Je l'ai adapté ici en C#. Je liste directement les processus de type EXCEL avant et après l'instanciation de mon objet :

Code :

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

1
2
3
4
5
Process[] mesProcExcelBefore = Process.GetProcessesByName("EXCEL");
monExcel = new Application();
Process[] mesProcExcelAfter = Process.GetProcessesByName("EXCEL");
// Voir plus bas pour l'explication de cette ligne ci-dessous :
monExcelId = GetProcessID(mesProcExcelBefore, mesProcExcelAfter);

La procédure suivante renvoie l'identifiant de mon processus nouvellement créé (indépendamment du type de processus recherché) :

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
36
37
38
39
40
41
42
 
/// <param name="mesProcBefore">Tableau des processus avant</param>
/// <param name="mesProcAfter">Tableau des processus après</param>
/// <returns>L'identifiant du processus supplémentaire</returns>
private int GetProcessID(Process[] mesProcBefore, Process[] mesProcAfter)
{
    int result = -1;
    bool isMyProc = false;
 
    // Si mon processus est le seul à être instancié
    // inutile de parcourir le tableau, il n'y a qu'une instance :
    if (mesProcBefore.Length == 0 && mesProcAfter.Length == 1)
    {
        result = mesProcAfter[0].Id;
    }
    else
    {
        // Parcours des processus après instanciation de l'objet :
        foreach (Process procAfter in mesProcAfter)
        {
            // Parcours des processus avant instanciation de l'objet :
            isMyProc = true;
            foreach (Process procBefore in mesProcBefore)
            {
                // Si je le retrouve, ce n'est pas celui que je cherche :
                if (procAfter.Id == procBefore.Id)
                {
                    isMyProc = false;
                    break;
                }
            }
            // J'ai retrouvé mon processus :
            if (isMyProc)
            {
                result = procAfter.Id;
                break;
            }
        }
    }
 
    return result;
}

De cette façon, je peut tuer uniquement le processus Excel que j'ai lancé par automation :

Code :

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

Process.GetProcessesById(monExcelID).Kill();

[fernier]

merci beaucoup,
j'ai simplement rajouter la ligne

Code :

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

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

merci