Discussion :

[davr971]

Bonjour,

Je me tourne vers vous car je rencontre un souci d'enregistrement de fichier word en PDF.

J'ai un fichier Excel qui me sert de "base de donnée" et un fichier Word qui me sert de modèle pour générer des bons de commande.
Dans le fichier excel j'ai créé une macro qui ouvre le modèle, met à jour les champs en fonction des données contenu dans le fichier excel puis enregistre le document word.

Pour enregistrer le document en format word (.docx), pas de souci avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordDoc.SaveAs ActiveWorkbook.Path & "\BDC.docx", FileFormat:=wdFormatDocument

Par contre imposible d'enregistrer le document en pdf.
j'ai bien essayer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
WordDoc.ExportAsFixedFormat OutputFileName:= _
        ActiveWorkbook.Path & "\BDC.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

Mais ça m'affiche un message d'erreur: "Argument ou appelle de procédure incorrect"

=> Pourriez vous m'indiquer la commande à utiliser pour enregistrer un fichier word en PDF depuis une macro VBA Excel ?

Merci d'avance

[Marc-L]

Bonjour !

Ouvrir déjà Word puis regarder dans l'aide VBA les paramètres de cette méthode vis à vis de l'objet rattaché …
En utilisant depuis Word le Générateur de macros et en effectuant l'enregistrement manuellement en .pdf,
un code est livré sur un plateau !

Restera alors à l'adapter côté Excel.

Pour une difficulté Word, penser aussi au forum dédié !

[davr971]

Bonjour Marc_L,

C'est exactement ce que j'ai fais, c'est d’ailleurs grâce à l'enregistreur de macro de Word que j'ai obtenu le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
WordDoc.ExportAsFixedFormat OutputFileName:= _
        ActiveWorkbook.Path & "\BDC.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

Ce code fonctionne correctement s'il est exécuté dans une macro Word, mais pas depuis une macro Excel.

Cependant, depuis mon premier message, j'ai trouvé la source du problème.
Cela venait du fait que certain paramètre sont connu sous Word et pas sous Excel:
Sous word :
- wdExportFormatPDF=17
-wdExportOptimizeForPrint=0
- wdExportAllDocument=0
- wdExportDocumentContent=0
- wdExportCreateNoBookmarks=0
Sous Excel tous ces paramètres étaient vides, donc logiquement le code ne fonctionnait pas.

Avec le code ci-dessous, la macro fonctionne parfaitement sous Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
WordDoc.ExportAsFixedFormat OutputFileName:= _
        ActiveWorkbook.Path & "\BDC.pdf", ExportFormat:= _
        17, OpenAfterExport:=True, OptimizeFor:= _
        0, Range:=0, From:=1, To:=1, _
        Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=0, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

[Marc-L]

Exact en liaison tardive !

Par contre en liant la référence Word au projet, en liaison anticipée donc, pas de souci …