Hello ,
hier j'ai reussi a acceder à ma base de donnée via un recordset mais je recupere une parti des données et à un moment il y a un bug :

" Aucun Enregistrement en Cours "

Voici mon code


Do While Range("A" + Trim(Str(nLigne))).Value <> ""

Num_Fir = Range("A" + Trim(Str(nLigne))).Value

NumFIR = "select champ35 from CRM21_Fir_histo "
NumFIR = NumFIR + " where Numero_Action = '" & Num_Fir & "'"

Set Rdst1 = Db.OpenRecordset(NumFIR, dbOpenSnapshot)
If Rdst1.Fields(0).Value <> "" Then
Range("W" + Trim(Str(nLigne))).Select
Range("W" + Trim(Str(nLigne))).Value = Rdst1.Fields(0).Value
End If
nLigne = nLigne + 1
Rdst1.Close
Loop
PS : ça plante toujours à la même ligne

j'ai verifier dans la base le numero existe et pas de souci apparent.

Merci.Antoine