Petites Explications
ActiveDocument.FormFields(1)
Correspond au premier champ de formulaire du document.
Si ton premier champ de formulaire n'est pas une liste déroulante, Word plante et c'est normal.
Tu peux si tu préfère utiliser le nom de ton champ
ActiveDocument.FormFields("MaListe").DropDonw.ListEntries.Add "Mon entrée"
Maintenant, on peut faire plus court
1 2 3 4
| With ActiveDocument.FormFields("MaLIste").DropDown.ListEntries
.Add "Mon Elément 1"
.Add "Mon Elément 2"
End With |
Donc ton code devrait ressembler à
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub PeuplerListe()
With ActiveDocument.FormFields("MaListe1").DropDown.ListEntries
.Add "Item 1"
.Add "Item 2"
End With
With ActiveDocument.FormFields("MaListe2").DropDown.ListEntries
.Add "Item 01"
.Add "Item 02"
End With
With ActiveDocument.FormFields("MaListe3").DropDown.ListEntries
.Add "Item 001"
.Add "Item 002"
End With
End Sub |
Mais tu ne dois pas oublier de vider la liste avant de la remplir
ActiveDocument.FormFields("MaListe1").DropDown.ListEntries.Delete
Partager