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 :
Mais en faite je crois qu'une requête depuis EXcel suffirait?
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
Merci de vos avis
Partager