Discussion :

[Mario Rousson]

Bonjour,

Que ce passe t'il?

Dans mon application je charge trois classeur Excel un après l'autre, le nombre de processus s'empile dans mon gestionnaire de tâche. je croyais que s'était parce que je suis en multithread mais je fait passer le nombre de thread à un et ça s'empile tout de même. puis lorsque j'arrêtre le déboggage les processus s'efface un après l'autre.

j'ai essayé quelques tentatives mais en vain.

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
44
45
46
47
 
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
xlWorkBook = xlApp.Workbooks.Open("MaFeuille1.CSV")
            xlWorkSheet = xlWorkBook.Worksheets(1)
            If Not xlWorkSheet.UsedRange.Rows.Count = 0 Then
                Col = xlWorkSheet.UsedRange.Columns.Count
                Ligne = xlWorkSheet.UsedRange.Rows.Count
 
'Code de traitement...
 
'Fermeture de la feuille1
xlWorkBook.Close(False)
            xlApp.Quit()
 
'Ouverture de la feuille2
xlWorkBook = xlApp.Workbooks.Open("MaFeuille2.CSV")
            xlWorkSheet = xlWorkBook.Worksheets(1)
            If Not xlWorkSheet.UsedRange.Rows.Count = 0 Then
                Col = xlWorkSheet.UsedRange.Columns.Count
                Ligne = xlWorkSheet.UsedRange.Rows.Count
 
'Code de traitement...
 
'Fermeture de la feuille2
xlWorkBook.Close(False)
            xlApp.Quit()
'etc.
'Fermeture et destruction de l'object com
 
releaseObject(xlWorkSheet)
releaseObject(xlWorkBook)
releaseObject(xlApp)
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()
            GC.WaitForPendingFinalizers()
        End Try
    End Sub

Merci de vos suggestions

Mario

[Mario Rousson]

Il semble qu'ouvrir un fichier CSV avec "File.ReadAllLines" marche aussi, j'essai dans ce sens la ... à bientôt

[Khalyss]

Salut. Premièrement je n'arrive pas a comprend comment tu peut ouvrir ton deuxième classeur alors que tu ferme l'application :

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
 
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
...
...
 
'Fermeture de la feuille1
xlWorkBook.Close(False)
            xlApp.Quit()
 
'Ouverture de la feuille2
xlWorkBook = xlApp.Workbooks.Open("MaFeuille2.CSV")
            xlWorkSheet = xlWorkBook.Worksheets(1)
            If Not xlWorkSheet.UsedRange.Rows.Count = 0 Then
                Col = xlWorkSheet.UsedRange.Columns.Count
                Ligne = xlWorkSheet.UsedRange.Rows.Count

Regarde ce lien, il peut t'être utile sur la libération des ressources d'un automation office : http://dotnet.developpez.com/faq/csh...DotNETOffice11

C'est en C#mais tu devrais comprendre.

Cordialement,
JLN

[Mario Rousson]

Merci beaucoup pour ta réponse,

Premièrement je n'arrive pas a comprend comment tu peut ouvrir ton deuxième classeur alors que tu ferme l'application :

Je sais pas trop, je vais étudier la question.

Merci aussi pour ton bout de code j'essayerai de le modifier au besoin

merci encore

[Khalyss]

Après le comportement d'Excel ne me choque pas, concrètement si tu veux ouvrir deux fichiers, tu ouvre deux instances d'Excel.

Rien d'illogique dans le comportement, ci ce n'est que le processus devrait se fermer après chaque traitement d'un de tes classeurs.

Si tu trouve la solution, poste là, ça m'intéresse et ça pourrait en intéresser d'autres. Et n'oublie pas d'utiliser le bouton

Cordialement.

[Mario Rousson]

Je suis aussi curieux de savoir ce qui ce passe... mais comme j'ai dit plustôt pour l'instant j'utilise "File.ReadAllLines" pour évité d'utiliser excel et je t'avoue que c'est drôlement plus rapide alors je vais poursuivre mon développement dans ce sens la.

Merci beaucoup de ton aide et désolé de ne pas pousser plus à fond dans la recherche de la solution au niveau des processus d'excel.

bonne journée

Mario

[Sankasssss]

Bonsoir,

Si tu trouve la solution, poste là, ça m'intéresse et ça pourrait en intéresser d'autres.

Le sujet de la fermeture du processus d'Excel est fortement traité sur le forum ainsi que sa lenteur
Voici une discussion traitant de la fermeture de l'Excel et de sa lenteur, cette discussion a été créée en 2005 et a continué jusqu'en 2012, c'est pour dire

Et mieux, j'ai trouvé en deuxième résultat une discussion que Mario Rousson avait ouverte sur les problèmes de fermeture de processus d'Excel renvoyant sur le précédent lien, perte de mémoire?

Pour :

Et n'oublie pas d'utiliser le bouton

En allant voir sur le profil de mario-rousson on peut voir qu'il a bien comprit l'utilisation de ce bouton
Donc pas besoin de lui rappeler