[VBA-E]Remplir combobox avec contenu d'une feuille Excel

Bonjour à tous,

j'essaye de faire en sorte qu'une combobox soit remplie avec des données d'une colonne d'une feuille excel j'ai donc écrit ce code en utilisant du SQL :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
Private Sub UserForm_Click()
 
 
 
'Déclaration de la connexion
Dim Conn As ADODB.Connection
 
'Déclaration du Recordset
Dim Rst As ADODB.Recordset
 
 
Dim Fichier As String, Direction As String, rSQL As String
 
Direction = ThisWorkbook.Path
Fichier = "HORS DELAIS COURTIERS  12 2005.xls"
 
    'Instanciation de la connexion
    Set Conn = New ADODB.Connection
 
    'Paramétrage & Ouverture
    With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Direction & "\" & Fichier & _
    ";Extended Properties=Excel 8.0;"
    .Open
    End With
 
    'Insertion de la requête SQL dans rSQL
    rSQL = "SELECT [CDCOURTI] FROM [DETAIL HD$]"
 
 
 
    'Instanciation du Recordset
    Set Rst = New ADODB.Recordset
 
    'Paramétrage et overture
    With Rst
    .ActiveConnection = Conn
    .Open rSQL, Conn, adOpenStatic, adLockReadOnly
    End With
 
 
    Rst.MoveFirst
 
Do While Not (Rst.EOF)
 
CmbCode.AddItem Rst![CDCOURTI]
Rst.MoveNext
 
Loop
 
 
End Sub

Lorsque j'execute le code ça m'indique que "le type ne répond pas " j'ai pour tant vérifier et tout semble correct...

Y a t'il une autre façon de procéder ?