Fermeture d'excel incorrect

Version imprimable

Bonjour,

Dans le développement de mon application je manipule un dossier Excel à partie d'un Sub ... End Sub dont je fait l'appel par la bar de menu, au debut de mon Sub je fait l'ouverture d'excel et tout va bien, à la fin je libère la mémoire et tout semble bien se dérouler.

Mais, dans le processus de mon gerstionnaire de tâches mon excel reste ouvert tant que je n'ai pas arreté mon programme ce qui me cause des problèmes lors d'une ouverture par double clic sur le dossier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub rechercheInfo() 'Ouverture d'excel '______________________________________________________ Dim appExcel As Excel.Application Dim WbExcel As Excel.Workbook Dim WsExcel As Excel.Worksheet appExcel = CreateObject("Excel.Application") ---Traitement--- WbExcel.Close() appExcel.Quit() appExcel = Nothing WbExcel = Nothing WsExcel = Nothing End Sub
Merci
Mario

27/06/2010, 11h00
Sankasssss

hello,
va voir cette discution :
http://www.developpez.net/forums/d65...sus-excel-exe/
Elle te donnera la réponse :ccool:

P.S. : Lis bien toute la conversation !!!
28/06/2010, 13h26
Skalp

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

C'est bizzard ce qui arrive ??

Depuis quelques jours je travail et fouille sur internet, pour trouver une bonne façon de fermer l'application correctement et voyez ce qui m'arrive.

Je me suis fait le code suivant qui fonctionne très bien

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
Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
        Dim xlApp As Excel.Application
        Dim xlWorkbook As Excel.Workbook
        Dim xlWorksheet As Excel.Worksheet
 
        xlApp = New Excel.Application
        xlWorkbook = xlApp.Workbooks.Open("C:\Users\Mario\Documents\VBA\Excel\Bonjour.xls")
        xlWorksheet = CType(xlApp.Worksheets("Feuil1"), Worksheet)
        xlWorksheet.Cells(2, 2) = Now
        xlWorkbook.Save()
        MessageBox.Show("Cells2")
        xlWorkbook.Close()
        xlApp.Quit()
        ReleaseObjet(xlApp)
        ReleaseObjet(xlWorkbook)
        ReleaseObjet(xlWorksheet)
    End Sub
 
Private Sub ReleaseObjet(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

et mon excel dans le processus disparait chaque fois. Mais, si j'essai d'ouvrir ma page excel à l'écran juste avant mon messagebox puis je le fait disparaitre juste après , Excel reste dans mon processus.

j'ai essayé :

Code:

xlWorksheet.Application.Visible = True

Code:

1
2
3
xlWorksheet.Application.Visible = True
        MessageBox.Show("Cells2")
        xlWorksheet.Application.Visible = False

quelqu'un sait pk?
merci

Hiiiiiiiaouuuuu

j'ai reussi

ce que j'ai fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
...
xlWorksheet.Application.Visible = True
        MessageBox.Show("Cells2")
        xlWorksheet.Application.Visible = False
        xlWorkbook.Close()
        xlApp.Quit()
        xlApp = Nothing
        xlWorkbook = Nothing
        xlWorksheet = Nothing
        ReleaseObjet(xlApp)
        ReleaseObjet(xlWorkbook)
        ReleaseObjet(xlWorksheet)

Dite moi si c'est correct svp

05/07/2010, 09h44
Skalp

Citation:

Envoyé par Mario Rousson

Depuis quelques jours je travail et fouille sur internet, pour trouver une bonne façon de fermer l'application correctement et voyez ce qui m'arrive.

As-tu au moins jeté un coup d'oeil au lien que je t'ai proposé ? :?

Citation:

Envoyé par Mario Rousson

Dites-moi si c'est correct svp

Si cela fonctionne, alors c'est correct ! :aie:
Plus sérieusement, cela fonctionne avec ton code actuel, mais si tu rajoutes des traitements Excel supplémentaires, peut-être que cela ne fonctionnera plus (par exemple si tu travailles avec d'autres objets. Range, par exemple).
A ce moment-là, tu seras amené à utiliser la seule méthode fiable, comme indiqué dans la FAQ.
05/07/2010, 17h36
Mario Rousson

Salut Skalp comme tu dit, en effet dans mon code principale ça ne fonctionne plus.

oui j'ai regarder le lien envoyer et je vais continuer à travailler la dessus

merci