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 : Sélectionner tout - Visualiser dans une fenêtre à part
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


Pourriez vous m'aider ?

Merci

Etienne