Problème sur macro d'export PDF
Bonjour à tous,
je bute sur un problème depuis des heures, et malgré le parcours de beaucoup de forums, impossible de trouver une solution :-/ Je poste donc ici en espérant que quelqu'un puisse voir ce qui ne va pas dans mon code... qui me semble pourtant assez simple.
Au départ j'ai deux fichiers :
- Un fichier word type avec des signets
- Un fichier excel très simple avec des cases que je remplis
Ma macro est lancée depuis mon fichier excel et génère un document word spécifique en renseignant tous les champs nécessaires, puis enregistre le document word sous un nom particulier sans modifier mon fichier type (comme ça je peux l'utiliser à la chaîne).
Jusque là, tout fonctionne sur des roulettes. Là où je bute, c'est pour enregistrer également mon fichier Word "personnalisé" au format PDF en parallèle.
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Sub Macro()
Dim WordObj As Object, Doc As Object
Set WordObj = CreateObject("Word.Application")
chemin = ThisWorkbook.Path & "\"
' ouvre un document existant
Set Doc = WordObj.Documents.Open(chemin & "Police type.doc")
WordObj.Visible = True 'affiche le document Word
Doc.Bookmarks("Nom_du_projet").Range.Text = Cells(4, "C")
Doc.Bookmarks("Numéro_police").Range.Text = Cells(5, "C")
police = Cells(5, "C")
projet = Cells(4, "C")
'On enregistre le document word dans un nouveau fichier pour ne pas modifier le document type
Doc.SaveAs Filename:=chemin & "Police n°" & police & " " & projet & ".doc"
'On enregistre au format PDF
Doc.ExportAsFixedFormat _
OutputFileName:=chemin & "Police n°" & police & " " & projet & ".pdf", _
ExportFormat:=wdExportFormatPDF
Doc.Close False 'ferme le document word type sans sauvegarder les données
WordObj.Quit 'ferme la session Word
End Sub |
J'ai une erreur d'exécution '5' (argument ou appel de procédure incorrect) sur ma ligne de commande d'export PDF (lignes 22 à 24). J'ai tenté plein de trucs, mais rien ne marche :(
Merci d'avance pour votre aide !
Severstahl
