Mise à jours base de donnée Access depuis liste Excel

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:

---

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

Code:

---

1 2 3

UPDATE Table1 INNER JOIN source ON Table1.ID = source.ID SET Table1.Etat = "oui";

---

Si les deux bases sont sur access cela donne ca.
Seulement la base source sera un fichier excel..
Edit : J'ai réussi à l'importer sous Access en tant que données externes

Il manque le faite de mettre les autres lignes à non???


Merci d'avance

Bonjour

Si tu lies le classeur Excel en tant que table liée, tu fait deux requêtes : un requête pour les communs (que tu as faites) et un autre pour les introuvables.

Passe par l'assistant requête de non correspondance, transformes en requête mise à jour, puis affiche le SQL...

Bonjour,

Merci de ta réponse,

Je suis passé en mode création assisté et j'obtiens la requête suivante :

Code:

---

1 2 3

SELECT Table1.N°, Table1.ID, Table1.Etat, Table1.Date FROM Table1 LEFT JOIN Watchlist ON Table1.[ID] = Watchlist.[ID] WHERE (((Watchlist.ID) Is Null));

---

Cependant je n'arrive pas à mettre à jour à "non"

Merci encore

Nevermind, clique droit, Reque MAJ