Accès à une base de données

[Eric 45]

Bonjour à tous

Malgré mes recherches, je n'ai pas réussi à accéder à une bdd avec le code suivant (extrait de Wiki Page 6 de MichelXld) :

Sub ImportTableAccess_V03_test()
Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim rSQL As String

Dim numfich As String
Dim num_c As Long
dim bdd As string

bdd = "bdd.mdb"

num_c = 2244

numfich = ThisWorkbook.Path & "\" & bdd

Set Conn = New ADODB.Connection
With Conn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Mode = adModeRead
    .Open numfich
End With

rSQL = "SELECT ma_table.numero_c FROM ma_table WHERE ma_table.numero_c =" & num_c

Set rsT = New ADODB.Recordset
With rsT
    .ActiveConnection = Conn
    .Open rSQL & num_c, , adOpenStatic, adLockOptimistic, adCmdText
End With

If rsT.EOF Then
    rsT.Close
    Conn.Close
    Exit Sub
End If
   
Cells(ActiveCell.Row, 2) = rsT.Fields(0).Value
Cells(ActiveCell.Row, 3) = rsT.Fields(1).Value
Cells(ActiveCell.Row, 4) = rsT.Fields(2).Value
Cells(ActiveCell.Row, 6) = rsT.Fields(3).Value

rsT.Close
Conn.Close
End Sub

j'ai le message d'erreur suivant : "Aucune valeur donnée pour un ou plusieurs des paramètres requis" sur la ligne :

.Open rSQL & num_c, , adOpenStatic, adLockOptimistic, adCmdText

Merci d'avance
Eric

 

[Eric 45]

Merci Pierre

Je fouille ton blog.

Eric

 

[Eric 45]

Bonjour à toutes et tous
Bonjour Pierre

Super ton blog.
J'ai trouvé l'erreur. Dans :

rSQL = "SELECT ma_table.numero_c FROM ma_table WHERE ma_table.numero_c =" & num_c

j'avais un "champs" demandé qui n'existait pas.

Bon WE à toutes et tous
Eric