Discussion :

[chroom1]

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

[Sankasssss]

Hello,
ton problème vient du fait que tu utilises .value au lieu de .value2 qui permet de lire une chaine dans une cellule ( voir msdn )

cette ligne est aussi fausse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While feuille_repertoire.Cells(i, 1) <> ""            'tant que la cellule i n'est pas vide, continue

car tu compares une cellule et non pas ca valeur, ou tu dois aussi utiliser .value2

Pour plus de compréhension du model Excel je te conseil ses deux liens :
- MSDN : Model object excel
- MSDN : Tâches Excel

Bien à toi et bonne lecture, si tu as d'autre question n'hésite pas.