Discussion :

[stechet]

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 :

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
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

[stechet]

Personne n'a d'idées ?

Merci de me dire si Je ne suis pas très clair sur la description de mon problème, je tenterais de la reformuler.