[VB.NET] Fermeture d'excel

**krfa1** · 16/05/2006, 07h05

Bonjour,

Je pilote excel depuis vb.net, et j'ouvre l'application de cette manière la:

Code :

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

1
2
3
4
excel_application = New Microsoft.Office.Interop.Excel.Application
excel_document = excel_application.Workbooks.Add

et je le ferme de cette methode la :

Code :

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

1
2
3
4
5
6
7
8
9
'enregistre et libère l'espace en mémoire
excel_document.Save()
excel_document.Close()
excel_feuille = Nothing
excel_document = Nothing
excel_application.Quit()
excel_application = Nothing

Mais le problème c'est que le processus d'excel reste ouvert. Donc après qu'il est ouvert une 20ène de fois, ben le PC il devient un peu plus lent... (J'arrivait à 1,5 Go de mémoire utilisée, alors que j'ai 1 Go...

)

Est-ce que quelqu'un pourrait me dire ce que je fais de faux?

**krfa1** · 16/05/2006, 12h10

Vous m'avez oublier?

**Thomas Lebrun** · 16/05/2006, 14h45

Non, mais toi, tu as oublié les règles du forum: http://www.developpez.net/forums/showthread.php?t=31917

A+

**krfa1** · 18/05/2006, 07h36

Désolé, j'oublie toujours d'indiquer dans le titre que c'est du VB.NET

A part ça, est-ce que quelqu'un aurait une solution? Ou si m'a question manque de clareté, dites le moi.

Merci d'avance

**bidou** · 18/05/2006, 07h40

tu dois avoir une référence implicite dans ton code de manipulation Excel

**krfa1** · 18/05/2006, 08h04

Merci pour ta réponse.

Mais je sais pas oû pourrait être cette erreur car j'ai encore controler, je fais bien toujours la même chose. Voici les instructions que j'utilise:

Code :

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

1
2
3
4
5
6
7
excel_application = New Microsoft.Office.Interop.Excel.Application
excel_document = excel_application.Workbooks.Add
excel_document.Sheets(3).delete()
excel_document.Sheets(2).delete()
excel_feuille = excel_document.Sheets(1)

Code :

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

1
2
3
4
5
excel_feuille.PageSetup.LeftMargin = conversion_centimetre_en_point(0.3)
excel_application.Columns("A").ColumnWidth = 7.6
excel_application.Range("A1", "Z999").Font.Size = 8

Code :

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

1
2
3
4
5
6
excel_application.Rows(ligne_en_tete & ":" & ligne_en_tete).RowHeight = conversion_centimetre_en_point(1)
excel_application.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
excel_feuille.Shapes.AddPicture("mon image", Microsoft.Office.Core.MsoTriState.msoCTrue, Microsoft.Office.Core.MsoTriState.msoTrue, conversion_centimetre_en_point(0.6), conversion_centimetre_en_point(0.4), conversion_centimetre_en_point(2.7), conversion_centimetre_en_point(1.1))
excel_application.Selection.merge()

Et voici aussi comment j'ai déclarer mes trois variables pour excel dans un module

Code :

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

1
2
3
4
5
6
7
Module objet
Public excel_application As Microsoft.Office.Interop.Excel.Application
Public excel_document As Microsoft.Office.Interop.Excel.Workbook
Public excel_feuille As Microsoft.Office.Interop.Excel.Worksheet
EndModule

Donc est-ce que tu le problème pourrais venir qu'une fois j'utilise excel application à la place de excel_feuille ou de excel_document?

Car j'utilise en général excel_application, mais quand je n'y trouve pas la fonction, j'utilise après excel_document ou excel_feuille.

Merci d'avance pour ta précieuse aide

**krfa1** · 18/05/2006, 08h53

J'ai lu, mais j'ai rien vu que je faisait faux. Alors je fais quoi de faux???

**Thomas Lebrun** · 18/05/2006, 09h29

Le tag dans le titre de ton premier message....

**krfa1** · 18/05/2006, 09h36

Ben quoi, c'est du VB.NET, alors j'ai mis [VB.NET]!!!

**krfa1** · 19/05/2006, 07h12

Personne ne voit le problème?

**bidou** · 19/05/2006, 08h45

Ton code a l'air correct, il n'y a rien d'autre ?

**krfa1** · 19/05/2006, 12h34

Ouai, d'autres bout de code, mais il est partout de cette manière là.

Est-ce que le problème pourrait venir de ma déclaration des objet excel_application, excel_feuille et excel_document que je déclare en Public dans un autre module?

**krfa1** · 19/05/2006, 13h06

J'ai essayé ce tout petit bout de code et mon process excel reste ouvert, donc je dois faire qqch de faux lors de la fermeture...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim excel_app As Microsoft.Office.Interop.Excel.Application
Dim excel_doc As Microsoft.Office.Interop.Excel.Workbook
Dim excel_feu As Microsoft.Office.Interop.Excel.Worksheet
excel_app = New Microsoft.Office.Interop.Excel.Application
excel_doc = excel_app.Workbooks.Add
excel_feu = excel_doc.Sheets(1)
 
excel_doc.Close()
excel_app.Quit()
excel_feu = Nothing
excel_doc = Nothing
excel_app = Nothing

**bidou** · 19/05/2006, 14h02

attention, Excel va peut être rester ouvert un moment puisque la référence ne sera effectivement détruite que lors de la libération réelle de la variable. En VB 2005 tu peux faire un Using pour forcer la destruction