Discussion :

[lolo_bob2]

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+

[Elstak]

Hophop,

j'ai pas de code à te proposer mais une petite idée (j'espere ne pas me tromper )

Alors tu devrais d'abord comparer chaque ligne excel que tu veux ajouter (enfin la celulle qui contient la clé primaire) à toutes les clé primaires de ta table existante et si elle ne s'y trouve pas alors tu l'ajoute, je vois pas d'autre solution (et je pense que ca sera simple à tester pour toi, y'a juste à ajouter une conditionelle dans ta boucle )

[lolo_bob2]

Merci beaucoup

le problème c'est qu'en Visual Basic je connais rien...
Je pense que la conditionnel c'est avec un if...then...else...
Je ne sais pas du tout écrire de code ! Tu me dis qu'il faut que je l'insere dans ma boucle for c'est bien ça ?

merci beaucoup de m'aider !

A+

[Elstak]

Oui c'est bien ca la conditionnelle
et il faut bien la placer dans la boucle for

en fait tu dois faire ca dans ta boucle for :
(on dira que c'est SAP t'a clé primaire)

faut prendre toutes tes valeurs de sap dans un recordset (rs)
(le code c'est surement pas bon , si tu bloque vraiment j'essayerai de rechercher)

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
dim test as byte
dim rs as recordset
test=0
'remet ton code de base
set rs = "Select distinct sap from nomdetatable"
 
For Each r In .Range("A5:C300").Rows 
 
     do while (rs.eof=false and test=0)
         'Si la clé de ta ligne à ajouter est deja utilisée alors on stop de comparer
         if(rs!sap = Sh.Cells(r.Row, 1)) then test =1 
     loop
     'si la clé est non prise alors on ajoute
     if (test=0) then
        With MyTable 
            .AddNew 
            !sap = Sh.Cells(r.Row, 1) 
            !nom = Sh.Cells(r.Row, 2) 
            !prenom = Sh.Cells(r.Row, 3) 
            .Update 
        End With
     end if
     test=0
next

Voilà t'etonne pas si ca marche pas direct mais l'idée est là

[lolo_bob2]

Salut c'est encore moi

voici le code que j'ai mis

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
26
27
28
29
30
31
32
33
Sub AjouterDesEnregistrementsAUneTable()
 
Dim test As Byte
Dim rs As Recordset
Dim MyDB As Database, MyTable As Recordset, Sh As Worksheet
test = 0
 
Set MyDB = OpenDatabase("S:\Qualité\BDD Qualité\BDD Qualité.mdb")
Set MyTable = MyDB.OpenRecordset("produits")
Set Sh = Worksheets("Feuil1")
 
Set rs = "Select distinct sap from produits"
 
For Each r In .Range("A5:C300").Rows
 
     Do While (rs.EOF = False And test = 0)
         'Si la clé de ta ligne à ajouter est deja utilisée alors on stop de comparer
         If (rs!sap = Sh.Cells(r.Row, 1)) Then test = 1
     Loop
     'si la clé est non prise alors on ajoute
     If (test = 0) Then
        With MyTable
            .AddNew
            !sap = Sh.Cells(r.Row, 1)
            !nom = Sh.Cells(r.Row, 2)
            !prenom = Sh.Cells(r.Row, 3)
            .Update
        End With
     End If
     test = 0
Next
 
End Sub

j'ai une erreur qui me met "erreur de compilation incompatibilité de type"
je pense qu'il y a un probleme dans le code mais je sais pas ou car il me grise la ligne select ..from... et apres il me met en jaune "Sub AjouterDesEnregistrementsAUneTable()"
Pouvez vous m'aider

Merci beaucoup

A+

[Invité]

Salut,

Va voir les tutos sur DAO, tu as des problèmes de syntaxe, notamment sur le set rs.

Starec

[lolo_bob2]

ok merci du conseil

meme apres les tuto je vois pas ce qu'il ne vas pas !

je suis désolé mais je débute et la programmation je galere un peu !

pouvez vous m'aider ?

merci bcp

A+