Discussion :

[cryptoboss]

Salut,

J'ai deux fichier excel , a.xls et b.xls
Je travail sur une form VBA dans a.xsl et j'ai besoin de remplir une combobox sur la form VBA, avec par exemple le contenu de la colnne A de la feuil 1 du fichier b.xsl.

j'ai essayer le code suivant mais ca marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
 Dim rng As Range
 Set rng = Workbooks("c:\b.xls").Worksheets("feuil1").Range("A2:A100").Value
 
 For Each cell In rng.Cells
        UserForm.MaComboBox.AddItem cell.Value
    Next cell
 
 
End Sub

une idée sur le code??

PS: je suis encore noob en VBA.

Merci bien.

[rvtoulon]

bonjour
essaye quelques choses comme ceci:

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
Private Sub UserForm_Initialize()
Dim wk2 As Workbook, chemin As String, fichier As String
 
'nom du fichier à ouvrir
fichier = "b.xls"
 
'chemin du fichier
chemin = "C:\"
 
'ouverture du fichier
Workbooks.Open chemin & fichier
 
Set wk2 = Workbooks(fichier)
 
'initialisation de la plage de recherche
With wk2.Sheets("Feuil1")
Set plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
 
'ajout des items dans la combobox
For Each c In plage
    Me.ComboBox1.AddItem c.Value
Next c
 
'fermeture du fichier
wk2.Close
 
End Sub

[cryptoboss]

Merci pour votre reponse,
ça marche a merveille.