Macro pour exporter fichier en pdf

[vdh_xavier]

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]

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 😉

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

 

[vdh_xavier]

Re : Macro pour exporter fichier en pdf

Un tout grand merci Staple.

Je songerai à changer de lunettes en effet 🙂

Bonne soirée