Changer valeur liste deroulante dans word à partir d'Excel

Bonjour à tous,

A partir d'un fichier Excel, j'aimerais sélectionner les valeurs d'une liste déroulante sur Word.

J' arrive à modifier un Quickpart ou même une case à cocher mais pas une liste déroulante.

J'ai essayé de nombreux codes mais j'ai toujours une erreur.

Voic mon code en 2 parties : ouvrir word puis changement valeur d'une liste qui s'appelle "coco" et dont une valeur est "papa"

Dim WordApp As Word.Application
 Dim WordDoc As Word.Document

 'ouvre session word
 Set WordApp = New Word.Application
 'ouvre du document Word
 Set WordDoc = WordApp.Documents.Open("C:\testexcel3.docx")
 'word est masqué pendant l'opération
 WordApp.Visible = True

''''
'essaie de plusieurs codes pour essayer de mettre "papa" dans la liste déroulante "coco"

'WordDoc.Bookmarks("coco").Range.Text = "papa"
 'WordDoc.FormFields(1).DropDown.Value = "papa"
 'WordDoc.Fields(1).Result.Text = "papa"
 'WordDoc.Fields(1).Result = papa
 'WordDoc.ComboBox1.Value = papa
 'WordDoc.FormFields("coco").Result = "papa"
'WordDoc.FormFields.Item("coco").Result = papa
'WordDoc.FormFields.Item("coco").DropDown.Value = "papa"
'WordDoc.FormFields("coco").DropDown.Value = Range("C6")
'WordDoc.DropDown("coco").Value = Range("C6")
'WordDoc.DropDown1.Value = "papa"
'Thisdocument.listbox1.Value = "papa"

Merci par avance pour votre aide car je tourne en rond.

cordialement

Rechercher des sujets similaires à "changer valeur liste deroulante word partir"