perso je ferais comme ça :
sub Transfert
dim Connection1 as ADODB.Connection
dim Connection2 as ADODB.Connection
dim ado1 as ADODB.recordset
dom ado2 as ADODB.recordset
dim sql as string
set Connection1=new ADODB.Connection
set Connection2=new ADODB.Connection
set ado1=new ADODB.recordset
set ado2=new ADODB.recordset
Connection1.CursorLocation = adUseClient
Connection2.CursorLocation = adUseClient
Connection1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBasededonne BD1.mdb & ";"
Connection2.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBasededonne BD2.mdb & ";"
sql="SELECT 'les champs' FROM tabledepart WHERE 'les condition'
ado.open sql,Connection1
while not ado.eof
sql="SELECT 'les champs' FROM tableArrive WHERE clefTableArrive=" & ado1('ClefTableDepart) & ";"
ado2.open sql,Connection2,adOpenDynamic, adLockOptimistic
if ado2.RecordCount=0 then
ado2.addnew
endif
ado2("Champ1")=ado1("Champequivalent")
....
ado2.update
ado2.close
ado1.movenext
wend
ado1.close
end sub
voila si cela peut aider...
