Bonjour,
Tout d'abord je tiens à 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.
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).
Là, le document (.docx) ce créer bien sauf que 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:
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