probleme remplissage d'un combobox avec une colone excel
Bonjour,
Je souhaiterai remplir une combobox avec une colonne existante dans un fichier excel, et ensuite pouvoir la modifier ( rentrer des nouvelles lignes et pouvoir les modifier )
Voila ce que j'ai fait mais ça ne remplis pas la combobox lorsque je lance le programme
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Sub Remplir_cb_destinataire()
Dim xlsAppli As New Excel.Application 'crée variable application excel
Dim classeur As Excel.Workbook 'crée variable classeur excel
Dim feuille_repertoire As Excel.Worksheet 'crée variable feuille excel
' 'remplit la variable classeur par le fichier compte_repertoire
classeur = xlsAppli.Workbooks.Open("C:\Documents and Settings\Philippe\Bureau\Thales\compte\compte_repertoire")
feuille_repertoire = classeur.Worksheets(1) 'remplit la variable feuille excel avec la première feuille du fichier compte_repertoire
feuille_repertoire.Columns(1).Select() 'selectionne la première colonne
cb_destinataire.Items.Clear() 'reset les cases du combobox
Dim i As Integer 'boucle de remplissage item par item
i = 1
While feuille_repertoire.Cells(i, 1) <> "" 'tant que la cellule i n'est pas vide, continue
Dim cellule As String 'crée variable cellule
cellule = feuille_repertoire.Cells(i, 1).Value 'prend la valeur de la cellule (i,1) du classeur excel
cb_destinataire.Items.Add(cellule) 'assigne cette valeur à l'item i du combobox
i = i + 1 'incrémente
End While
xlsAppli = Nothing
classeur = Nothing
feuille_repertoire = Nothing
End Sub |
:cry:
Pourriez vous m'aider ?
Merci
Etienne