Changer valeur liste deroulante dans word à partir d'excel
davberna
Messages postés
4
Statut
Membre
-
davberna Messages postés 4 Statut Membre -
davberna Messages postés 4 Statut Membre -
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"
Merci par avance pour votre aide car je tourne en rond.
cordialement
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
2 réponses
-
Bonjour,
pour word je ne sais pas trop mais sur excel il faudrait écrirelistbox1.AddItem("papa")
-
-
-
-
oui je vois, déjà dans tous tes essais tu appelles une fois combobox1 et ensuite tu appelle listebox1
dans un premier temps il faudrait être sur du nom de l'objet en question
partage tes fichiers en question anonymisés ici via cjoint en créant un lien que tu colles ici en réponse pour y voir + clair
-
-
si tu sais où se situe papa dans ta liste qui alimente ta listbox (dans ce cas dans la 3eme ligne) tu peux utiliser :
Sélectionner la 3eme ligne dans une ListBox.
ListBox1.ListIndex = 2 '1ere ligne = 0
déjà je modifierai cette ligne en rajoutant le readonly := falseSet WordDoc = WordApp.Documents.Open("C:\testexcel3.docx", ReadOnly :=false)
je continue à chercher...