[VB.net] Convertir xls/xlsx en pdf

Signaler
Messages postés
2
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
23 juin 2009
-
Messages postés
2
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
23 juin 2009
-
Bonjour à tous,

Je dois convertir des fichiers doc/docx et xls/xlsx à partir d'un emplacement.
Le programme va parcourir un à un les fichiers et doit me les convertir en pdf.

Avec l'Add-in Office "saveaspdf and xps" je veux faire un sauvegarder sous...

Pour les documents word, il n'y a pas de soucis, j'ai trouvé :

Dim AppWord
As
New Word.Application

Dim mondoc
As Word.Document

' ouvre le fichier wordmondoc = AppWord.Documents.Open(sfiles(i),

False, ,
False, , , , , , , ,
False)

'converti le fichier word et supprime l'extension initialemondoc.SaveAs(

"chemin destination" & name.Substring(0, name.LastIndexOf(
".")), Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatPDF)

AppWord.Quit()

Mais pour excel je ne trouve pas d'équivalence à Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatPDF

Quelqu'un peut-il m'aider ?

Bonne journée

1 réponse

Messages postés
2
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
23 juin 2009

Bon finalement, j'ai trouvé. Voilà la solution :

Dim

Appexcel
As
New Excel.Application

Dim monxls
As Excel.Workbook

' ouvre le fichier excelmonxls = Appexcel.Workbooks.Open(sfiles(i),

False)

'converti le fichier excelmonxls.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF,

"destination fichier" & name.Substring(0, name.LastIndexOf(
".")), Microsoft.Office.Interop.Excel.XlFixedFormatQuality.xlQualityStandard)

Appexcel.Quit()