1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

[VB.net] Convertir xls/xlsx en pdf

solyrics1 Messages postés 2 Date d'inscription jeudi 6 décembre 2007 Statut Membre Dernière intervention 23 juin 2009 - 23 juin 2009 à 10:04
solyrics1 Messages postés 2 Date d'inscription jeudi 6 décembre 2007 Statut Membre Dernière intervention 23 juin 2009 - 23 juin 2009 à 10:28
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
A voir également:

1 réponse

Réponse 1 / 1
solyrics1 Messages postés 2 Date d'inscription jeudi 6 décembre 2007 Statut Membre Dernière intervention 23 juin 2009
23 juin 2009 à 10:28
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()
0
Rejoignez-nous