Remplir combobox a partir d'un autre classeur

[FaruSZ]

Je veux alimenter une combobox d'un userform, a partir des donneses d'un autre classeur.
J'ai rédigé ce code:
Private Sub CommandButton1_Click()
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Dim wbFullPath As String, wb As Workbook, boolFound As Boolean

wbFullPath = "C:\Users\seus0013\Desktop\liste_affectation.xlsm"
For Each wb In Workbooks
If wb.FullName = vbfullname Then
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
boolFound = True: Exit For
End If
Next
If Not boolFound Then
Set wb = Workbooks.Open(wbFullPath)
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
End If

Fin_Liste_affect = ws_Liste_affect.Range("A" & Rows.Count).End(xlUp).Row
arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
UserForm_SDE.ComboBox_Affect.List = arr

J'ai une erreur dans : arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
il me dit objet requis, en sachant que je l'ai défini. qq peut me dire ou est l'erreur.
Merci

 

[Dranreb]

Bonjour.
Un '.' au lieu d'un '_'.
Avec Option Explicit en tête du module vous auriez eu un message plus clair: variable non défini pour ws_Liste.

 

[FaruSZ]

Je veux alimenter une combobox d'un userform, a partir des donneses d'un autre classeur.
J'ai rédigé ce code:
Private Sub CommandButton1_Click()
Dim ws_Liste_affect As Worksheet, Fin_Liste_affect As Long, arr As Variant
Dim wbFullPath As String, wb As Workbook, boolFound As Boolean

wbFullPath = "C:\Users\seus0013\Desktop\liste_affectation.xlsm"
For Each wb In Workbooks
If wb.FullName = vbfullname Then
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
boolFound = True: Exit For
End If
Next
If Not boolFound Then
Set wb = Workbooks.Open(wbFullPath)
Set ws_Liste_affect = wb.Worksheets("heures_alpha")
End If

Fin_Liste_affect = ws_Liste_affect.Range("A" & Rows.Count).End(xlUp).Row
arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
UserForm_SDE.ComboBox_Affect.List = arr

J'ai une erreur dans : arr = ws_liste.affect.Range("A2:A" & Fin_Liste_affect).Value
il me dit objet requis, en sachant que je l'ai défini. qq peut me dire ou est l'erreur.
Merci

Ah ouais j'avais pas vu l'erreur, ca marche maintenant. merci.