Discussion :

[PC81]

Bonjour à tous,
Je suis un étudiant en stage et j'ai du créé un code qui récupère les valeurs d'un document Excel pour les mettre dans mes tables Access. Par contre, j'aimerai effectué un test pour savoir si, la valeur que je récupère est déjà présente dans ma table, auquel cas je met à jour la ligne. Dans le cas contraire, je créé une nouvelle ligne.
J'ai un problème que je n'arrive pas à résoudre pour ce test, le reste marche impécable.

Quelqu'un peut-il m'aider à résoudre mon problème svp ??? Merci d'avance.

Mon code :

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
For i = 2 To NbLine
    With xlApp.ActiveWorkbook.Worksheets("Bdd")  'recuperation des données de la feuille Bdd
        Req(1) = .Range("E" & i).Value
        toto = "SELECT * FROM nom_table WHERE colonne1='" & Req(1) & "'"
        Set rs = CurrentDb.OpenRecordset(toto)        
 
        If (Req(1) = rs("colonne1").Value) Then
            cSQL = "UPDATE nom_table SET colonne2='maj' WHERE colonne1='" & Req(1) & "'" 'requete SQL
            DoCmd.RunSQL cSQL   'execution de la requete SQL
            MsgBox ("boucle 1")
        Else
            MsgBox ("boucle 2")
            cSQL = "INSERT INTO nom_table (colonne1, colonne2) VALUES ('" & Req(1) & "', 'tata')" 'requete SQL"
            DoCmd.RunSQL cSQL   'execution de la requete SQL
 
        End If
    End With
    Next i

[Jean-Philippe André]

salut,
pour aller plus vite, tu peux faire un combo Nz+Dlookup ou alors un Dcount()

exemple avec Dcount

Code :

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

1
2
3
4
5
If Dcount("colonne1","MaTable","colonne1='" & xlApp.ActiveWorkbook.Worksheets("Bdd").Range("E" & i).Value & "'") = 1 Then
'code d'update
else
'code d'insertion
End If

[PC81]

Bonjour,
merci pour ta réponse, elle marche impécable.

Bonne journée, nitro81