Dropdown list WORD via excel

[shaders]

HEllo tout le monde,

J'ai un gros pbm dans word :

Savez vous comment faire pour avoir un menu déroulant alimenté via un fichier excel ?

j'arrive naturellement a faire des menu déroulant simple, mais à connecter excel dessus.

D'avance merci

shaders

 

[pyrof]

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