Remplissage automatique word via macro

[DJARNAUD]

Bonjour à tous,

voilà, j'ai aujourd'hui une macro qui me permet de remplir un template outlook en fonction de données contenues dans une page excel.
Je souhaiterai faire la même chose mais cette fois-ci pour remplir un word. Pourriez vous m'aider à faire les modifications nécessaires?

Voici ma macro actuelle

Sub Annexe5()
Dim objOutlook As Object
Dim objOutlookMsg As MailItem
Dim objOutlookRecip As Recipient
Dim objOutlookAttach As Object
' Crée la session Outlook.
Set objOutlook = CreateObject("Outlook.Application")
' Crée le message.
Set objOutlookMsg = objOutlook.CreateItemFromTemplate("S:\annexe 5.oft")
With objOutlookMsg


Set objOutlookRecip = .Recipients.Add(" ")
.Subject = ("INFO DR DOSSIER N°") & "" & (Range("b4"))

'Modification du corps du mail
xxx = Replace(.HTMLBody, "%1", Range("Feuil1!B4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%2", Range("Feuil1!C4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%3", Range("Feuil1!q4"))
.HTMLBody = xxx
xxx = Replace(.HTMLBody, "%4", Range("Feuil1!R4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%5", Range("Feuil1!s4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%6", Range("Feuil1!u4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%7", Range("Feuil1!v4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%8", Range("Feuil1!G4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%9", Range("Feuil1!w4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%a", Range("Feuil1!f4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%b", Range("Feuil1!Ab4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%c", Range("Feuil1!Ae4"))
.HTMLBody = xxx

xxx = Replace(.HTMLBody, "%d", Range("Feuil1!E4"))
.HTMLBody = xxx

.Importance = 2 'Haute
.Display
End With
Set objOutlook = Nothing
End Sub
D'avance merci

 

[DJARNAUD]

Quelqu'un a t-il une solution à me proposer??

 

[DJARNAUD]

Merci beaucoup pierre! ça fonctionnement parfaitement! merci

 

[DJARNAUD]

Bonjour,

j'ai tout de même un petit soucis, la macro ne retrouve pas mon signet et place donc le texte à insérer au début du document word, au niveau du curseur. Comment puis je corriger cela? d'avance merci

 

[DJARNAUD]

Bonjour Pierre,
J'ai vérifié, les signets sont bien lus par excel. Comme ça ne fonctionne toujours pas je t'ai fait un petit fichier que tu trouveras ci-joint.
Merci à toi!

 

[DJARNAUD]

Merci encore Pierre,
Pas grave pour l'oubli, tu es tout excusé.