Discussion :

[loke74150]

Bonjour,

je suis debutant en VB et ai essaye de recuperer des bouts de code sur les differents forums mais lors de la compilation j'obtiens pas mal d'erreurs ou exceptions...

je souhaite ouvrir un fichier excel 2003 existant pour y entrer des données et générer un pdf puis l'enregister, tout cela grace a une simple interface visual basic textes / listes deroulantes a choix multiples / boutons d'actions diverses sur le fichier...

pouvez vous m'aider s'il vous plait, bibliotheques, references...tout ce qu'il faut importer ou déclarer, je suis vraiment bloqué...

Merci beaucoup!!
LoKe

[hunteshiva]

et bien met nous les erreurs que tu rencontre

la comme sa on peut pas t'aider XD

[nasty]

Bonjour

Alors v'la plein d'informations pour ce que tu veux faire

pour le fichier excel, il faut avoir importé

• Microsoft.Office.Interop.Excel
• Microsoft.Office.Core

Ainsi que les references qui vont avec :

• Microsoft.Office.Interop.Excel
• Microsoft.Office 12.0 Object Library(en fonction de ta version d'office, se trouve dans COM)

Pour ouvrir le fichier Excel

Code :

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

1
2
3
4
appXls = New Microsoft.Office.Interop.Excel.Application   'ouverture d'excel
appXls.Visible = True 'on affiche la fenetre d'excel
appXls.Workbooks.Open(My.Settings.CHEM_XLS) 'ouverture du fichier  excel
sheetXls = CType(appXls.ActiveWorkbook.Worksheets("Page1"), Microsoft.Office.Interop.Excel.Worksheet) 'on selectionne la page "rapport"

Et pour remplir les cellules

Code :

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

sheetXls.Range("A1").Value = "Developpez.com"

Et pour enregistrer le fichier Excel au format Excel

Code :

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

sheetXls.SaveAs("Chemindufichier")

Apres pour la conversion en PDF, ca depend de ce que tu utilise!

Personnellement j'ai PDFCreator et ca marche plutot bien (seul probleme faut que PDFCreator soit installé sur le poste client)

Il faut importer : PDFCreator (incroyable n'est ce pas)
Et la reference qui va avec : Interop.PDFCreator

Et pour enregistrer en PDF

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim pdf as new PDFCreator.clsPDFCreator
With pdf
     .cOption("PDFResolution") = 72
     .cOption("UseAutosave") = 1
     .cOption("UseAutosaveDirectory") = 1
     .cOption("AutosaveDirectory") = "C:\ARCALIA\" & _N_User & "\"
     .cOption("AutosaveFilename") = _NumPrest
     .cOption("AutosaveFormat") = 0 ' 0 = PDF
      sheetXls.PrintOut(ActivePrinter:="PDFCreator")
End With

Voila t'as tout ce qu'il te faut pour faire des beaux PDF

Nasty

[loke74150]

Hunteshiva:

voila ce que j'essayais en ayant ajouté seulement la référence "Bibliotheque objet microsoft excel 5.0" ce qui me donnait une exception non execútée COMException...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Déclaration des variables 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls") 
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

Tu en penses quoi?



Nasty:

Dans un autre projet vierge, sans tout ce que j'ei ecrit au dessus, j'ai écrit les lignes

Code :

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

1
2
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Core

Mais la premiere n'est pas acceptée sûrement parce que je ne trouve pas la référence Microsoft Office Interop...

Ensuite j'ai mis Microsoft Office 11.0 object library car dans excel il me dit Excel 2003 11.8320... c'est bon jusque la?
J'ai aussi essayé de mettre la bibliotheque "Bibliotheque objet microsoft excel 5.0"...pas mieux, pas pire...



Malgre mon ignorance je sens que ca va avancer un peu avec votre aide, merci

LoKe

[hunteshiva]

je ne trouve pas la référence Microsoft Office Interop

t'a tenté de faire une recherche folle sur "C:"



j'ai eu ton message, mais comme je t'ais dit je ne pratique pas sur Excel
*faudait que je m'y mette*
je laisse Nasty t'éclairer, il (ou elle) a l'air de s'y connaitre 100fois mieux que mois

[hunteshiva]

trouvaille de dernière minute

http://www.developpez.net/forums/d66...ffice-interop/

je te laisser lire