Bonjour,

J'ai une nouvelle liste d'ID dans un fichier Excel et je dois mettre à jours la base Access suivant ces ID.

Soit deux champs dans la base :
champ1 : ID
champ2 : Etat

Si un ID du fichier excel est présent, le champ2 correspondant au même ID sur access est mis à jours à "oui"
Sinon toute la colonne est mise à "non".

Je suis un peu perdu, je voulais passer par des recordset et dictionnaire.
Du genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim Cnt As ADODB.Connection, Rst As ADODB.Recordset, r As Long
  ' connect to the Access database
  Set Cnt = New ADODB.Connection
  Set Rst = New ADODB.Recordset
  MaBase = "TR50000.accdb"
  MaTable = "TR25000"
  URL_BASE = ActiveWorkbook.Path & "\" & MaBase
  Cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & URL_BASE & ";"
  Rst.Open MaTable, Cnt, adOpenKeyset, adLockOptimistic, adCmdTable
  With Rst
    .MoveFirst
    Do Until .EOF
      If .Fields( "NumSeries" ) = "55000003370" Then
        !Batch = "999999"
        .Update
      End If
      .MoveNext
    Loop
  End With
  Rst.Close
End Sub
Mais en faite je crois qu'une requête depuis EXcel suffirait?

Merci de vos avis