Processus ne se fermant pas !

Version imprimable

Bonjour, je reviens vers vous car j'ai le problème suivant avec mon code :

Le processus EXCEL.EXE reste ouvert après l’exécution du code, des idées ?

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Imports System.Data.SqlClient
Imports xls = Microsoft.Office.Interop.Excel
 
Module Module1
 
    Sub Main()
 
        Dim xlApp As New xls.Application
        Dim xlBook As xls.Workbook
        Dim xlSheet As xls.Worksheet
 
        'Configuration de la connection SQL + Requete   
        Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=bdd_name;User Id=sa;Password=159753;")
        Dim Requete As String = "SELECT * FROM Table_test"
 
        'Configuration du fichier Excel ainsi que de la Worksheet à modifier
        xlBook = xlApp.Workbooks.Open("C:\Users\toto\Desktop\Classeur1.xlsx")
        xlSheet = xlBook.Worksheets("test")
 
        'Connexion à la BDD
        Connexion.Open()
 
        Dim Commande As New SqlCommand(Requete, Connexion)
        Dim Adaptateur As New SqlDataAdapter(Commande)
        Dim MonDataSet As New DataSet
 
        Try
            'Récupération des données dans un DataSet
            Adaptateur.Fill(MonDataSet, "test")
        Catch ex As Exception
            'Fermeture de la connection en cas d'erreur           
            Console.WriteLine(ex.Message)
            Commande.Dispose()
            Connexion.Close()
        End Try
 
        'Fermeture de la connection
        Commande.Dispose()
        Connexion.Close()
 
        'Ajout du dataset dans le fichier Excel
        Dim RowInd As Int16 = 1
        Dim ColInd As Int16 = 1
 
        xlSheet.Range("A1", "Z5000").Value = ""
 
        For ColInd = 0 To 4
            For Each Ligne As DataRow In MonDataSet.Tables("Alarms").Rows()
                xlSheet.Cells(RowInd, ColInd + 1).Value = Ligne(ColInd).ToString
                RowInd += 1
            Next
            RowInd = 1
        Next
        'Sauvegarde du fichier Excel et fermeture de la connection
        xlApp.DisplayAlerts = False
        xlSheet.SaveAs("C:\Users\toto\Desktop\Classeur1.xlsx")
        xlBook.Close(False)
        xlApp.Quit()
        xlApp.DisplayAlerts = True
 
        ReleaseObject(xlApp)
        ReleaseObject(xlBook)
        ReleaseObject(xlSheet)
 
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing
    End Sub
 
 
    Private Sub ReleaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Module

05/02/2016, 13h34
Ashireon

Bonjour essaye pour fermer :

Code:

xlApp.ActiveWorkbook.Close()

ou enlève False dans ta Ligne comme suit

Code:

xlBook.close()
05/02/2016, 14h02
Kazushi38

Merci pour ta réponse, mais même résultat dans les deux cas, le processus reste actif.

Ce que je demande va être bête mais je prefere demander car cela m'est deja arrivé par le passé.
As tu bien killer tous tes processus avant de refaire un essai. En faisant de multiples essais il arrive d'oublier de les tuer avec CTRL ALT SUPP.
BOn vous etes pas tous des alcoolos comme moi mais bon sais t on jamais.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 xlApp.DisplayAlerts = False xlSheet.SaveAs("C:\Users\toto\Desktop\Classeur1.xlsx") xlApp.DisplayAlerts = True ReleaseObject(xlApp) ReleaseObject(xlBook) ReleaseObject(xlSheet) xlApp = Nothing xlBook = Nothing xlSheet = Nothing xlBook.Close() xlApp.Quit()
Je mets toujours la fermeture à la fin sinon ca sous entends qu'il rouvre une instance d'application. Si tu n'as qu'un Workbook ouvert et que tu as fais un savesAS le fait de fermer le workbook tue egalement l'APPlication en tout cas c'est le cas avec excel 2010.

05/02/2016, 15h20
Kazushi38
Effectivement ça aurait pu mais non, j'ai bien vérifié. J'ai même tenté de voir si sur un autre PC ça faisait pareil, et même résultat.

J'ai tenté de les mettre à la fin mais en faisant ça, j'ai des erreurs lors de l’exécution si je ne met pas les lignes suivantes en commentaire, et en faisant ça le résultat est toujours le même.
Code:

1 2 3 4 5 6 7 ReleaseObject(xlApp) ReleaseObject(xlBook) ReleaseObject(xlSheet) xlApp = Nothing xlBook = Nothing xlSheet = Nothing

Pour ma part pour fermer une appli excel

Code:

1
2
3
4
5
6
7
8
9
10
 ' sauvegarde des fichiers sous un autre nom et ferme les instances excel
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "Sauvegarde des fichiers"
        APPxls.DisplayAlerts = False
        Appxls2.DisplayAlerts = False
        APPxls.ActiveWorkbook.SaveAs("Zodiacmodifié" & DTE & ".xls", FileFormat:=56)
        Appxls2.ActiveWorkbook.SaveAs("Clippermodifié" & DTE & ".xls", FileFormat:=56)
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & " Fermeture des fichiers"
        APPxls.ActiveWorkbook.Close()
        Appxls2.ActiveWorkbook.Close()
        RichTextBox1.Text = RichTextBox1.Text & vbCrLf & " Travail terminé"

Bon je suis peut être et voir certainement un peu bourrin mais ca fonctionne dans ce cas il y avait 2 classeurs et donc 2 apps excel qui tournaient.

05/02/2016, 16h07
Kazushi38

J'ai tenté, même résultat avec ton code :s
05/02/2016, 16h16
casiii

Essaye de mettre ton xlApp .Visible = True avant d'appeler le .Close() pour voir s'il n'y a pas un message d'erreur qui empêcherait la fermeture du processus.

Edit : J'ai vu dans certaines discussions l'utilisation de GC.Collect (dans le finally du Try/Catch englobant l'utilisation du fichier Excel) pour supprimer le processus.
05/02/2016, 16h37
Kazushi38

Aucune erreur à signaler avec xlApp .Visible = True
Et aucun changement en ajoutant le GC.Collect à cet endroit là :/

Code:

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
        Try
            'Ajout du dataset dans le fichier Excel
            Dim RowInd As Int16 = 1
            Dim ColInd As Int16 = 1
 
            xlSheet.Range("A1", "Z5000").Value = ""
 
            For ColInd = 0 To 4
                For Each Ligne As DataRow In MonDataSet.Tables("Alarms").Rows()
                    xlSheet.Cells(RowInd, ColInd + 1).Value = Ligne(ColInd).ToString
                    RowInd += 1
                Next
                RowInd = 1
            Next
            'Sauvegarde du fichier Excel et fermeture de la connection
            xlApp.DisplayAlerts = False
            xlSheet.SaveAs("C:\Users\toto\Desktop\Classeur1.xlsx")
            xlBook.Close(False)
            xlApp.Quit()
            xlApp.DisplayAlerts = True
 
            ReleaseObject(xlApp)
            ReleaseObject(xlBook)
            ReleaseObject(xlSheet)
 
            xlApp = Nothing
            xlBook = Nothing
            xlSheet = Nothing
        Catch ex As Exception
            'Gestion de l'exception à implémenter !
        Finally
            GC.Collect()
        End Try

Comme ça ? :P

05/02/2016, 21h08
clementmarcotte

Bonjour,

Excel est une vraie tête de cochon quand il s'agit de le fermer après une opération de pilotage par automation, que ce soit avec VB.net, Word, PowerPoint et le reste.

Avec VB.net, une fois que j'ai "libéré" les objets Excel et je l'ai en principe quitté et fermé, j'utilise la classe Process pour vérifier s'il est toujours ouvert et le fermer au besoin.

Tu peux aussi jeter un œil là-dessus:

http://devcity.net/PrintArticle.aspx?ArticleID=239
08/02/2016, 08h47
Kazushi38

Merci pour vos réponses, malgré ton code casiii, rien n'y fait, je vais devoir passé par le kill du process, pas le choix. Merci pour le lien, il va beaucoup m'aider, je passe la conversation en résolu.

Hello,

C'est déjà marqué comme résolu mais je lis des trucs qui me font peur.

Il ne faut surtout passer par la classe process pour voir si Excel est toujours ouvert (à moins d'avoir le handle du process qu'on a ouvert nous-même) car si l'utilisateur à ouvert excel de lui-même et qu'il bosse dedans pour autre chose, cela va lui fermer son travail aussi.

Voici comment je ferme Excel et tout se passe toujours très bien de mon côté.

N.B. : Ce code vient bien sûr après avoir fermé (et sauvegardé) le workbook.

Code:

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
Imports Excel = Microsoft.Office.Interop.Excel
 
        Dim excelApp As Excel.Application = Nothing
        Dim wkbk As Excel.Workbook
        Dim sheet As Excel.Worksheet
 
        Try
            excelApp = New Excel.Application
            wkbk = excelApp.Workbooks.Open(path)
            sheet = wkbk.Sheets("le nom qui va bien")
 
            'effectuer ici le travail d'automation
 
            sheet = Nothing
            wkbk.Close(False)
            wkbk = Nothing
            ' Close Excel.
            excelApp.Quit()
            excelApp = Nothing
            Return True
        Catch ex As Exception
 
            sheet = Nothing
            If wkbk IsNot Nothing Then
                wkbk.Close(False)
                wkbk = Nothing
            End If
            ' Close Excel.
            excelApp.Quit()
            excelApp = Nothing
 
        End Try

EDIT : Postage d'un code plus complet et explicite.

Bonjour,
vérifies que tu passe bien dans ReleaseObject!, en tous les cas ta méthode ReleaseObject fonctionne bien et rend la main au système!

Code:

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
 
Imports System.Data.SqlClient
Imports xls = Microsoft.Office.Interop.Excel
 
Module Module1
 
    Sub Main()
 
        Dim xlApp As New xls.Application
        xlApp .visible=true
        xlApp.Quit()
        ReleaseObject(xlApp)
      '  ReleaseObject(xlBook) ça ça ne sert à rien dans la mesure ou tu dispose de la classe maître le  reste s'effectue en cascade!
       ' ReleaseObject(xlSheet)
 
        xlApp = Nothing
        'xlBook = Nothing
       ' xlSheet = Nothing
    End Sub
 
 
    Private Sub ReleaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Module

J'ai plus trop le temps de chercher d'avantage malheureusement,
Mon programme s’exécutera la nuit donc aucun excel ne s’ouvrira pendant son exécution.

Pour éviter de fermer un fichier non désiré j'ai trouvé le code suivant sur un autre forum et qui ne me ferme que le processus Excel ouvert lors de l’exécution.

à l'init :

Code:

1
2
3
4
5
6
7
8
9
Private mExcelProcesses() As Process
 
    Private Sub ExcelProcessInit()
        Try
            'Get all currently running process Ids for Excel applications
            mExcelProcesses = Process.GetProcessesByName("Excel")
        Catch ex As Exception
        End Try
    End Sub

à la fin :

Code:

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
Private Sub ExcelProcessKill()
        Dim oProcesses() As Process
        Dim bFound As Boolean
 
        Try
            'Get all currently running process Ids for Excel applications
            oProcesses = Process.GetProcessesByName("Excel")
 
            If oProcesses.Length > 0 Then
                For i As Integer = 0 To oProcesses.Length - 1
                    bFound = False
 
                    For j As Integer = 0 To mExcelProcesses.Length - 1
                        If oProcesses(i).Id = mExcelProcesses(j).Id Then
                            bFound = True
                            Exit For
                        End If
                    Next
 
                    If Not bFound Then
                        oProcesses(i).Kill()
                    End If
                Next
            End If
        Catch ex As Exception
        End Try
    End Sub

08/02/2016, 20h56
clementmarcotte

Bonjour,

Citation:

Envoyé par Kropernic

Hello,

C'est déjà marqué comme résolu mais je lis des trucs qui me font peur.

si l'utilisateur à ouvert excel de lui-même et qu'il bosse dedans pour autre chose, cela va lui fermer son travail aussi.

Ça c'est vrai. :ccool:

Chez-moi, ce n'est pas trop énervant, parce que ferme habituellement Excel avant de lancer mes programmes, mais, dans un environnement de travail, cela peut vraiment être un gros poblème.