Discussion :

[kail_tak]

Bonjour à vous tous,


Voilà j'ai réalisé une macro d'export de données d'Excel vers une table Access et le problème c'est que je ne sais pas comment faire pour rajouter une condition.

Cette condition consiste à vérifier si la valeur existe déjà dans ma table Access pour éviter d'exporter la donnée en double et en sachant que sur ma table Access le champs est en doublons.

je vous mets le code que j'ai réalisé sous Excel :

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
34
35
36
37
38
39
40
41
42
43
Sub Paramètres()
 
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Long
 
    Chemin = ActiveWorkbook.Path
    Application.CutCopyMode = True
    Dim tak As String
    tak = "Data Source= D:\Partage_Tak\BDS_Access_finale\bd_sondages_tests.mdb;" & _
                        "Jet OLEDB:Database Password=MyPwd"
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open tak
 
    Set rs = New ADODB.Recordset
    rs.Open "[Paramètres]", cn, adOpenKeyset, adLockOptimistic, adCmdTable
 
    r = 2
 
    Do While Len(Range("A" & r).Formula) > 0
 
        With rs
 
            .AddNew
            .Fields("N_Sondage") = Range("A" & r).Value
            .Fields("Profondeur") = Range("B" & r).Value
            .Fields("VIA") = Range("C" & r).Value
            .Fields("PO") = Range("D" & r).Value
            .Fields("PI") = Range("E" & r).Value
            .Fields("PR") = Range("F" & r).Value
            .Update
 
 
     End With
 
        r = r + 1
    Loop
 
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End sub

Merci pour votre aide

[Invité]

pourquoi ne pas passer par un table temporaire?
tu importe dans une table Temp et ensuite tu insert

Code SQL :

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

Delete Temp.* from Temp;

Code SQL :

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

 rs.Open "[TEMP]", cn, adOpenKeyset, adLockOptimistic, adCmdTable

Code SQL :

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

1
2
3
4
INSERT INTO TableDef ( ID )
SELECT Temp.ID
FROM Temp LEFT JOIN TableDef ON Temp.ID = TableDef.ID
WHERE TableDef.ID Is Null;