Salut à tous

voila j'ai un code VBA qui permet d'envoyer des données d'excel vers une table access.
Cela fonctionne parfaitemement, le seul problème que je rencontre est le suivant si j'envoie des données lorsque la table est vide il n'y a pas de probleme cela fonctionne. Si je rajoute une ligne au fichier excel et que je renvoie les données, la nouvelle ligne ne s'inscrit pas dans la table access, je pense que c parcequ'il touve des doublons !

voici le code que puis je faire pour que mon problème ne persiste plus ?

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
22
23
24
25
Sub AjouterDesEnregistrementsAUneTable()
 
 
Dim MyDB As Database, MyTable As Recordset, Sh As Worksheet
 
 
Set MyDB = OpenDatabase("S:\Qualité\BDD Qualité\BDD Qualité.mdb")
Set MyTable = MyDB.OpenRecordset("produits")
Set Sh = Worksheets("Feuil1")
 
 
With Sh
    For Each r In .Range("A5:C300").Rows
        With MyTable
            .AddNew
            !sap = Sh.Cells(r.Row, 1)
            !nom = Sh.Cells(r.Row, 2)
            !prenom = Sh.Cells(r.Row, 3)
            .Update
        End With
    Next
End With
Set MyDB = Nothing: Set MyTable = Nothing: Set Sh = Nothing
 
End Sub
je vous remercie beaucoup
A+