Remplissage signet word via excel

Bonjour à toutes et tous


J’ai trouvé un petit code qui permet via un fichier excel de remplir des signets dans un document word.

Cela fonctionne très bien quand le document word est fermé sur mon disque dur.

Ligne B4 va au signet 1, ligne B5 va au signet 2 etc…

Sub Publicontract()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open("C:\essaie1.docx")
WordApp.Visible = True
For i = 4 To 7
Set monSignet = WordDoc.Bookmarks("Signet" & i).Range
monSignet.Text = Cells(i, 2)
WordDoc.Bookmarks.Add "Signet" & i, monSignet
Next i
End Sub

Par contre je souhaiterai faire la même chose mais avec le document word déjà ouvert. Avez une idée de ce que je dois modifier ? la ligne en gras italique certainement ?Par avance merci de votre aide.

cordialement