Changer valeur liste deroulante dans word à partir d'Excel
d
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