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
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
sheetXls.Range("A1").Value = "Developpez.com"
Et pour enregistrer le fichier Excel au format Excel
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
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
Partager