Excel vers Word

Bonjour à tous,

Je cherche depuis ce week end une solution pour intégrer des données contenus dans un textbox vers un champ word.

J'arrive à ouvrir mon document Word à partir de la VBA d'Excel, mais je n'arrive pas à transferer les infos. J'ai essayé pas mal de chose mais rien ne fonctionne !!!

Voici mon bout de code :

Strplanning = Sheets("Données").Range("c2").Value

Dim WdApp As Object
Dim WdDoc
Set WdApp = CreateObject("Word.Application")
Set WdDoc = WdApp.Documents.Open(Filename:=Strplanning + "Fiche dossier client.doc")
DoEvents
WdApp.Visible = True

Wdoc.Fields("societe").Text = Ficheclient.societe1.Value 'c'est là que je bloque !!!
DoEvents
WdDoc.Close True 'Enregistre le document et le ferme
DoEvents
WdApp.Quit 'Ferme Word
Set WdApp = Nothing
Set WdDoc = Nothing


Merci d'avance à tous ceux qui voudront bien m'aider.