Crée listes déroulantes dans word et la lié à database Excel

Bonjour,

J'essaye d'implémenter un code dans un formulaire word mais sans succes. (je ne suis pas un expert VBA)

Mon besoin est de relié 3 liste déroulantes à 3 colonnes d'une feuille excel.

ListeDéroulante1 relié au cellules de Colonne A

ListeDéroulante2 relié au cellules de Colonne B

ListeDéroulante3 relié au cellules de Colonne C

Avant d'arriver à faire cela je bloque déjà sur le code de base trouver sur une des pages du forum (ci dessous) :

Mon code ne marche pas qd je modifie dans le code le nom par rapport à mes listes déroulantes (signets en place)

(en effet pas de problème si je transpose la chemin de mon fichier excel dans votre fichier source, mais du moment que je mets votre code sur mon fichier word avec mes signets de liste déroulante ca bug bloque.

Merci d'avance de votre aide

Sub MajListbox()

Dim Xl As Excel.Application, Wbk As Excel.Workbook

Set Xl = CreateObject("Excel.Application")

Xl.Visible = False

Set Wbk = Xl.Workbooks.Open("D:\Temp\ListeD\Test.xls")

ThisDocument.FormFields("Mois").DropDown.ListEntries.Clear

With Wbk.Worksheets(1)

For l = 2 To 13

ThisDocument.FormFields("Mois").DropDown.ListEntries.Add .Cells(l, "A").Text

Next l

End With

Wbk.Close

Set Xl = Nothing

End Sub

SI quelqu'un a un nouveau code pret, je le prends volontiers!

MErci