Dropdown list WORD via excel

Bonjour,

Voici une ébauche

Il faut que ton fichier excel soit ouvert

voici la macro a mettre dans ta userform



Private Sub UserForm_Initialize()
Set wrd = GetObject(, "excel.Application")
col = 2
ligne = 6
l1 = ligne
With wrd
While .sheets("feuil1").Cells(l1, col) <> ""
x = .sheets("feuil1").Cells(l1, col).Value
l1 = l1 + 1
ComboBox1.AddItem x
Wend
End With
End Sub



Les données (excel) doivet être dans la feuille 1 dans la colonne 2 et a partir de la ligne 6

Ceci est parametrable par les variables col et ligne pour la feuille intervenir sur la commande sheets