Changer valeur liste deroulante dans word à partir d'excel

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
d
davber
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 2 juin 2017
Version d'Excel : 2010

Message par davber » 8 novembre 2018, 16:48

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message