Bonjour
j´aimerai afficher par dans un listbox (excel) les contenue d´un champ d´une table access.
merci

Voici le code que j´ai essayer mais toujours erreur !!!!
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
Sub liste()
 Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim fld As ADODB.Field
 
    Set conn = New ADODB.Connection
    With conn
 
        .Provider = "Microsoft.JET.OLEDB.4.0"
 
        .Open ThisWorkbook.Path & "\mabase.mdb"
    End With
 
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open "SELECT * FROM matable_access " & UserForm1.ListBox1
    End With
 
    For Each fld In rst.Fields
    If rst.Fields.Item(2) = "Nom" Then
    UserForm1.ListBox1.AddItem fld.value
 
    End If
    Next fld
 
    Set rst = Nothing
    conn.Close
End Sub