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
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