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 :
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour votre aide !
Severstahl
Partager