Discussion :

[Stepsbysteps]

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

[Stepsbysteps]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[78chris]

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...

[Stepsbysteps]

Bonjour,

Merci de ta réponse,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Stepsbysteps]

Nevermind, clique droit, Reque MAJ