Sub ImportTableAccess()
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim intColIndex As Integer, i As Integer, N As Integer
Dim Fichier As String, TableName As String
Fichier = ThisWorkbook.Path & "\maBase_V01.mdb"
TableName = "Table1"
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Fichier & ";"
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = cn
.Open "SELECT * FROM " & TableName, , adOpenStatic, adLockOptimistic, adCmdText
End With
UserForm1.ListBox1.ColumnCount = Rs.Fields.Count
'UserForm1.Label6.Caption = "Résultat requete = " & Rs.RecordCount
'...