Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset
Dim i As Byte
Dim L As Long
Dim j, Msg, NumRaq As Integer
Dim Path As String
Path = "P:\xxx"
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open Path & BaseMDB
End With
With rsT
.ActiveConnection = Conn
.Open Table1, LockType:=adLockOptimistic
End With
With Sheets("Détails")
TabPlage1 = .Range("A6:N" & .Range("A65536").End(xlUp).Row)
End With
For L = 1 To UBound(TabPlage1)
With rsT
' Recherche de l'enregistrement
.MoveFirst
.Find ("[Nom du champ]='" & TabPlage1(L, 1) & "'")
.Fields("Champ 2").Value = TabPlage1(L, 2)
End with