Discussion :

[krfa1]

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]

Vous m'avez oublier?

[Thomas Lebrun]

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


A+

[krfa1]

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]

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

[krfa1]

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]

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