Problème code VBA depuis excel pour générer un document word publiposté
Bonjour,
Tout d'abord je tien à préciser que je suis nouveau sur le forum et que c'est la première fois que j'utilise le VBA.
J'ai réussi tant bien que mal en allant voir sur différents forums à réaliser un code presque satisfaisant.
Mais là je suis bloqué.
Voici mon problème :
J'ai créé un document Word (.dotm) qui me sert de trame dans lequel je publiposte des données venant d'un document excel.
Cette partie fonctionne correctement.
J'ai ensuite réalisé un code VBA pour générer depuis mon document excel un document word (.docx) qui est issu du document word (.dotm).
Jusque là tout vas bien, sauf que dans le document (.docx) créé les champs ne se mettent pas à jour, ils gardent la valeur du dernier enregistrement du (.dotm).
je n'ai trouvé aucune piste pour résoudre ce problème.
Merci de bien vouloir m'aider.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub PDP()
Dim NDF As String, NDF2 As String
NDF = "U:\Word models\5 PDP.dotm"
NDF2 = "U:\Word models\PDP " & Sheets("ne pas effacer").Range("P2")
NDF2 = NDF2 & "-" & Sheets("ne pas effacer").Range("BZ2").Text
NDF2 = NDF2 & "-" & Sheets("ne pas effacer").Range("CE2")
NDF2 = NDF2 & "-" & Sheets("ne pas effacer").Range("A2").Text & ".docx"
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
WordDoc.Application.ActiveDocument.SaveAs NDF2
Set WordDoc = WordApp.Documents.Open(NDF2)
End Sub |
