S.O.S. -> UN PETIT SOUCI DE MACRO <-

[Thomas]

S.O.S. -> UN PETIT SOUCI DE MACRO <-

j'ai un probleme.
c'est du VBA et c'est dans WORD mais bon il y a du EXCEL!!!...
Il faut ke j'intègre une colonne provenant d'un fichier EXCEL dans un COMBOBOX sous WORD et je ne sais pas comment faire...

si quelqu'un a une solution qu'il me la fasse parvenir au plus vite

D'avance merci à tout ceux qui liront ce message S.O.S !!!!!!!!!!!!!

 

[pyrof]

Re: S.O.S. -> UN PETIT SOUCI DE MACRO <-

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