Macro pour exporter fichier en pdf

vdh_xavier

XLDnaute Junior
Bonjour tout le monde,

J'ai créé une macro pour exporter un fichier EXCEL en PDF tout en gardant le même nom de fichier et la même destination d'enregistrement.

Voici le code :

Sub Macro1()
Wbname = Replace(ActiveWorkbook.FullName, ".xlsm", "") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Wbname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

End Sub


Je voudrais faire de même dans une macro WORD et je n'y parviens pas.

Voici le code que je suis arrivé à faire :

Sub Macro1()
Wbname = Replace(ActiveWorkbook.FullName, ".docx", "") & ".pdf"

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Wbname, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False

J'ai le message d'erreur suivant :

"erreur d'exécution 424
objet requis"

Je suis persuadé que c'est une question de détail, mais même dans l'aide, je ne trouve pas.

Merci d'avance de bien vouloir m'aider
 

Staple1600

XLDnaute Barbatruc
Re : Macro pour exporter fichier en pdf

Bonsoir à tous

Je suis persuadé que c'est une question de détail, mais même dans l'aide, je ne trouve pas.

Effectivement ;)... il est temps de changer de lunettes ;)
Code:
Sub Macro1()
Dim Wbname$
Wbname = Replace(ActiveDocument.FullName, ".docx", "") & ".pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Wbname, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
298 814
Messages
1 971 985
Membres
203 580
dernier inscrit
Phinks