Discussion :

[xVINCEx]

Bonjour, je me suis créer une formulaire qui permet d'exporter des rapports financiers vers Excel. Toute marche #1 hors cependant le processus Excel reste toujours actif même lorsque l'utilisateur ferme le fichier Excel, et à chaque fois qu'il produit le rapport cela lance un nouveau processus Excel qui ne se ferme jamais.

Bref, s'il fait plusieurs fois le rapport en une journée, cela fait plusieurs processus EXCEL.EXE ouvert et cela bouffe de la mémoire.

En gros mon code:

Ouvre mon "modèle" de rapport en read-only.

Code :

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

 wbExcel = appExcel.Workbooks.Open(strCheminRapports & "\rapportjournalier.xls", , True)

Ensuite tout mon code qui produit et inscrit mes nombres dans mon rapport.

Et une fois terminé,

Code :

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

1
2
3
4
5
6
 
appExcel.Visible = True 'Afficher l'application Excel
 
wsExcel = Nothing 'Purger la feuille Excel en mémoire
wbExcel = Nothing 'Purger le classeur Excel en mémoire
appExcel = Nothing 'Purger l'application Excel en mémoire

Donc voila je croyais que mes 3 dernieres lignes de code aurait stoppé le processus EXCEL.EXE, mais non il reste toujours ouvert.

Suggestions?

[Thomas Lebrun]

Essaye de rajouté ceci à la fin de ton code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//
// Double appel à Collect et WaitForPendingFinalizers
// En effet, le référence mémoire vers Excel peut-être conservée après le 1er appel
// On demande donc un deuxième passage du Garbage Collector
//
GC.Collect();
GC.WaitForPendingFinalizers();
GC.Collect();
GC.WaitForPendingFinalizers();

(Attention, c'est du C#, faut convertir en VB.NET )

Sinon, regarde si ton objet appExcel ne possède pas une méthode Quit ou CLose

A+

[xVINCEx]

Cela semble fonctionner, merci énormément.

[xVINCEx]

En faite après test, ca fonctionne pas

Et je peux pas faire un appExcel.Close() car il va me fermer Microsoft Excel et moi je veut qu'il reste ouvert le temps qu'il consulte
/imprime les données. Cependant je veux que lorsque l'usager ferme le fichier Excel que le processus Excel.exe se kill.

[neguib]

Essayes sur un evenement de fermeture

Code :

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

1
2
3
4
5
 
Process[]  excels; 
excels = Process.GetProcessesByName("Excel") ;
foreach (Process p in excels)
 {p.Kill();}

[xVINCEx]

Merci encore une fois neguig, ca fonctionne #1. Je n'ai simplement qu'a appeler cette fonction lors de la fermeture de mon formulaire et les processus sont tous tués

Merci énormément, cela va permettre a l'utilisateur d'économiser beaucoup de ressources.

[poullos]

Merci depuis le temps que j'ai le même probleme j'avais abandonné l'idée même de pouvoir le résoudre un jour.

[zeavan]

tu fais koi avec ton excel t'es en mode lecture seulement ou pas ??

je m'explique javais le meme probleme jusqu'a que je procede comme il se doit et je nais pas besoin d'utiliser de rechercge de process pour les tuer (ca encore ca va) ou pire !!!!!! appeler le GC a nouveau .

[Yorglaa]

Salut !
perso je fini par une méthode "Quit" comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub Quit()
        If Not IsNothing(XLSSheet) Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSSheet)
            XLSSheet = Nothing
        End If
        If Not IsNothing(XLSBook) Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSBook)
            XLSBook = Nothing
        End If
        If Not IsNothing(XLSApp) Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSApp)
            XLSApp = Nothing
        End If
    End Sub

où bien sûr XLSApp correspond à l'appli, XLSSheet à la feuille et XLSBook au classeur

[Rachidbe90]

voila je me permet de vous demander une petit aide comme j'ai vu que tu travail sur visual et excel! j'explique
j'ai un fichir excel qui gére mes données, c-a-d; j'ai un magasin de meuble et j'ai deux depot, sur mon classeur excel j'ai des feuilles chaque feuille presente un fournisseur, et chaque feuille (fournisseur) affiche les données des articles, 1) ID articles
2) NOM d'article
3) Mag 1
4) mag 2
5) mag 3
6) client.
1) c'est le code que je donne a chaque article (texte)
2) c'est le nom de chaque article (texte)
3)+4)+5) le nombre present d'article a chaque magasin (numerique)

ce qu'il me faut c'est que le classeur soit désactivé, et si on veux modifier quelque la quantité dans les colonne 3.4.5.6, faudras remplire un petit formulaire qui sera demander automatiquement en clic sur une des 4colonne,
et si une quantité va vers le clients, je veux que le fichier exe demande un commentaire;
ca serai vraiment genial de votre part,
merci merci

[mitsh666]

hello,

le problème du killprocess c'est qu'il tue le processus et peut-être qu'il tuera celui qui n'est pas bon.

Je suis sur visual studio 2005 et code en vb.

pour fermer excel, j'exécute le code suivant :

Code :

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

1
2
3
4
5
6
7
8
   objExcel.ActiveWorkbook.Close() 'Fermeture d'Excel
            objExcel.DisplayAlerts = True 'remet l'alerte  oui=True   non=False
            objExcel.Quit()
 
            objClasseur = Nothing
            objExcel = Nothing
 
            GC.Collect()

la dernière ligne permet de mettre à jour les processus et de les fermer s'ils ne sont plus utiles.

A+

[mamamiya_]

Bonjour à tous,

J'ai eu le même problème...
Effectivement en utilisant le "kill du Process", cela risque de tuer tous les processus et même pire fermer (kill) des applications excel qui n'ont rien à voir avec l'application en cours. Cela peut être énervant pour l'utilisateur qui voit son fichier excel de personnel fermé automatiquement...entre autre

Bref,

En C#, j'ai ajouté ceci et ça marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
/*
        Microsoft.Office.Interop.Excel.Application oXL;
        Microsoft.Office.Interop.Excel._Workbook oWB;
        Microsoft.Office.Interop.Excel._Worksheet oSheet;
*/
                oXL.Parent.Quit();
                // ferme et tue le processus en cours uniquement.
                oWB = null;
                oXL = null;
                GC.Collect();

Personnellement, j'utilise ceci pour générer automatiquement un fichier Excel mais dès que les données ne sont pas disponibles, une erreur est lancée et les fichiers valides restent ouverts tandis que les mauvais (dans mon appli, je crée un fichier que je commence à remplir avant d'atteindre une éventuelle exception) fichiers sont supprimés.

Mon souci maintenant est d'empêcher l'apparition de la fenêtre de notification de Windows "Voulez-vous enregistrer des modifications...". Personnellement, je voudrais que le kill du process générant l'erreur se fasse dans la transparence. Si quelqu'un aurait une idée, je suis preneur.

J'ai essayé:

Code :

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

oXL.UserControl = false;

mais ça ne change rien...

Bien à vous.

[Julien V]

Bonjour

Si ça peut aider, voici ce que j'utilise pour créer le processus Excel :

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
43
Public Sub NouveauXL()
    '
    'permet de créer un processus et de vérifier son ID
    '
 
    'très utile car un processus Excel® ne se quitte pas correctement donc obligé de le tuer
  Private ProcId% = 0
 
    ' Liste des processus avant la création Excel®
    Dim Process1() As Process = Process.GetProcesses()
 
    xlApp = New Excel.Application
 
    ' Liste des processus après Excel® : la différence donnera l'ID créé
    Dim Process2() As Process = Process.GetProcesses()
 
    Dim i%, j%
    Dim bMonProcessXL As Boolean
 
    For j = 0 To Process2.GetUpperBound(0)
        If Process2(j).ProcessName = "EXCEL" Then
            bMonProcessXL = True
 
            'Listing des processus avant la création Excel®
            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'est pas celui recherché
                        bMonProcessXL = False
                        Exit For
                    End If
                End If
            Next i
 
            If bMonProcessXL = True Then
                'Recopie de l’identifiant du processus créé
                ProcId = Process2(j).Id
                Exit For
            End If
        End If
    Next j
End Sub

Et ce que j'utilise pour le tuer (seule l'application ouverte sera tuée) :

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub TuerObjetXL()
    '
    'Permet de tuer le processus Excel®
    '
 
    If ProcId = 0 Then Exit Sub
    Process.GetProcessById(ProcId).Kill()
    ProcId = 0
End Sub

[Sankasssss]

Hello,
pour ces solutions, ca faisais aussi un bout de temps que je bloquais la dessus... je retien particulièrement la solution de Julien V que je testerai dès demain au boulot.

Pour mamamiya_ :

Mon souci maintenant est d'empêcher l'apparition de la fenêtre de notification de Windows "Voulez-vous enregistrer des modifications...". Personnellement, je voudrais que le kill du process générant l'erreur se fasse dans la transparence. Si quelqu'un aurait une idée, je suis preneur.

J'ai essayé:

Code :

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

oXL.UserControl = false;

mais ça ne change rien...

Bien à vous.

il y a surement plus beau mais si tu l'enregistre tu n'auras plus ce message, donc tu l'enregistre, tu ferme ton appli (sans message puisque enregistré) et tu effaces le fichier enregistré.

encore à vous pour ces solutions et ce post fort instructif

[mamamiya_]

Bonjour

Si ça peut aider, voici ce que j'utilise pour créer le processus Excel :

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
43
Public Sub NouveauXL()
    '
    'permet de créer un processus et de vérifier son ID
    '
 
    'très utile car un processus Excel® ne se quitte pas correctement donc obligé de le tuer
  Private ProcId% = 0
 
    ' Liste des processus avant la création Excel®
    Dim Process1() As Process = Process.GetProcesses()
 
    xlApp = New Excel.Application
 
    ' Liste des processus après Excel® : la différence donnera l'ID créé
    Dim Process2() As Process = Process.GetProcesses()
 
    Dim i%, j%
    Dim bMonProcessXL As Boolean
 
    For j = 0 To Process2.GetUpperBound(0)
        If Process2(j).ProcessName = "EXCEL" Then
            bMonProcessXL = True
 
            'Listing des processus avant la création Excel®
            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'est pas celui recherché
                        bMonProcessXL = False
                        Exit For
                    End If
                End If
            Next i
 
            If bMonProcessXL = True Then
                'Recopie de l’identifiant du processus créé
                ProcId = Process2(j).Id
                Exit For
            End If
        End If
    Next j
End Sub

Et ce que j'utilise pour le tuer (seule l'application ouverte sera tuée) :

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub TuerObjetXL()
    '
    'Permet de tuer le processus Excel®
    '
 
    If ProcId = 0 Then Exit Sub
    Process.GetProcessById(ProcId).Kill()
    ProcId = 0
End Sub

Bonjour Julien,

Apparemment ceci est du VB, je suis encore débutant en programmation...
Je vais essayer de l'adapter, cela ne devrait pas pauser de contraintes...

Merci pour cette méthode.

[Skalp]

Cette problématique est maintenant traitée dans la FAQ C# : Comment libérer les ressources d'une automation Office ?

[Sankasssss]

Très très bonne chose (Même si certain vont dire que c'est en C# et qu'ils n'y comprennent rien )

[hunteshiva]

Oo franchement parfait cette FAQ C#
comment tuer un process Excel sans tuer les autres
pour les réfractaire, voici une petite adaptation en vb.net

1. Détecter les process "Excel" existants

Code :

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

1
2
3
4
5
        Dim processId As Integer = 0
        ' Additionner les identifiants des processus "Excel" avant l'ouverture de l'automation :
        For Each item As Process In Process.GetProcessesByName("EXCEL")
            processId -= item.Id
        Next

2. Ouverture du fichier Excel

Code :

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

1
2
        Dim Excel_App As New Microsoft.Office.Interop.Excel.Application
        Dim Workbook As Microsoft.Office.Interop.Excel.Workbook

3. Tue le process Excel

Code :

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

1
2
3
4
5
6
7
' Ajouter les identifiants des processus "Excel" après l'ouverture de l'automation,
            ' la différence (après - avant) donnera l'identifiant du processus ouvert :
            For Each item As Process In Process.GetProcessesByName("EXCEL")
                processId += item.Id
            Next
            ' Tue le process *sauvagement* ^^
            Process.GetProcessById(processId).Kill()

[sinople]

Un grand classique l'excel qui reste ouvert...

Il me semble que d'utiliser explicitement des variables pour les classeurs et feuille (voir les cellules utilisées) dans le code de l'automation avec une fermeture propre de ces dernières, un set à nothing a ces variables après la fermeture et coup de Garbage Collector permet d'obtenir une fermeture a peu près correct d'Excel. Parfois ces process se termine à la fermeture de l'application .Net.

Il arrive quand même que ce dernier reste ouvert en cas d'erreur dans le pilotage d'Excel (les fameuses exceptions COM incompréhensible).

Le kill process de l'extrême est à priori une solution a éviter car il est fort probable qu'un jour ou l'autre vous détruisez le process d'un excel légitme et ce jour là votre programme finira à la poubelle...

Je vous recommande plus globalement d'éviter la manipulation direct d'Excel en automation.

Vous pouvez traiter les données avec des requêtes à l'aide de jet et pour les xlsx à l'aide d'xml (encore que ça j'ai jamais étudié). Un export en format csv à la place d'un fichier Excel peut aussi être une solution (en plus ça évitera de lier votre programme à une installation d'office).

De plus si l'export sous Excel de donnée depuis votre programme est fastidieuse, Excel possède lui de nombreuse fonctionnalité pour l'import de donnée. Il peut alors devenir intéressant d'étudier la problématique sous un autre angle :-)

[Sankasssss]

Il me semble que d'utiliser explicitement des variables pour les classeurs et feuille (voir les cellules utilisées) dans le code de l'automation avec une fermeture propre de ces dernières, un set à nothing a ces variables après la fermeture et coup de Garbage Collector permet d'obtenir une fermeture a peu près correct d'Excel. Parfois ces process se termine à la fermeture de l'application .Net.

C'est ce que nous faisons maintenant dans notre société et ça marche bien.

Le kill process de l'extrême est à priori une solution a éviter car il est fort probable qu'un jour ou l'autre vous détruisez le process d'un excel légitme et ce jour là votre programme finira à la poubelle...

Pas avec la solution donnée qui prend l'identifiant du process propre à l'Excel qu'il vient de lancer... De cette manière, ils peuvent être sûr que l'excel est bien fermé.

Vous pouvez traiter les données avec des requêtes à l'aide de jet et pour les xlsx à l'aide d'xml (encore que ça j'ai jamais étudié).

+1
Nous sommes occupé à faire des recherches pour éviter l'automation car dépendante de l'installation d'office et surtout EXTRÊMEMENT LENTE... (pour exporter 5000 lignes => 3 minutes alors qu'avec du XML, quelques secondes...)

J'attend avec impatience le résultat des tests de ma collègue sur les test xls xml...

P.S. : Merci à hunteshiva pour la traduction, je pense que certain apprécieront...