Discussion :

[kimou75]

Bonjour,

Je tente de transférer des données présentes sur un feuille Excel vers un tableau Access mais je n'arrive pas à m'y retrouver.

Je souhaiterai que mon programme efface le contenu précédent présent dans la table Access existante pour ensuite remplir avec les données présentes dans Excel.

J'ai tenté quelque-chose à partir de recherche sur le forum mais ça ne semble pas adapté

Pourriez-vous m'aider svp ?

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
 
    Dim cn As ADODB.Connection
    rs As ADODB.Recordset
    r As Long
 
    Set cn = New ADODB.Connection
 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\Users\kguesmia\Documents\Alerte CASSE appro\Casse_appro.accdb;"
 
    Set rs = New ADODB.Recordset
 
    rs.Open "Table1", cn, adOpenKeyset, adLockOptimistic, adCmdTable
 
    r = 2
 
    Do While Len(Range("A" & r).Formula) > 0
 
          With rs
 
            .AddNew 
 
            .Fields("Date jour") = Range("A" & r).Value
 
            .Fields("Base") = Range("B" & r).Value
 
            .Fields("Filiere") = Range("C" & r).Value
 
            .Fields("Cnuf") = Range("D" & r).Value
 
            .Fields("Ean13") = Range("J" & r).Value
 
            .Fields("Itm8") = Range("E" & r).Value
 
            .Fields("Désignation") = Range("G" & r).Value
 
            .Fields("DLC") = Range("M" & r).Value
 
            .Fields("DLV") = Range("N" & r).Value
 
            .Fields("Cdt") = Range("H" & r).Value
 
            .Fields("Upa") = Range("I" & r).Value
 
            .Fields("Date fin de vie") = Range("AC" & r).Value
 
            .Fields("Date casse") = Range("U" & r).Value 
 
          '  .Fields("Nb jrs avt début ct date") = Range("C" & r).Value
 
            .Fields("Colis Stk") = Range("L" & r).Value
 
            .Update 
 
        End With
 
        r = r + 1 
 
    Loop
 
 
    rs.Close

[cerede2000]

A première vu ton code d'insertion à l'air pas mal, bien qu'optimisable

Pour vider la table, le plus rapide c'est ça :

Code :

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

cn.Execute "Delete From Table1"

Ça supprime tous les enregistrements de Table1

[Invité]

Bonjour,
Ton code permet l'ajout de données dans ta table à priori ça ca dont fonctionner non?

Mais si tu veux supprimer les données de ta table li faut exécuter une requête de suppression avec.

Code :

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

1
2
 
cn.execute "Dlete from Table1;"

Édite: Trop tard!

[kimou75]

Le souci est des la première ligne

Code :

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

Dim cn As ADODB.Connection

je rencontre l'erreur "Type défini par l'utilisateur non défini"

[Invité]

Code :

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

1
2
3
4
5
6
7
8
Dim cn As Object,Rs as Object 
Set cn =CreateObject("ADODB.Connection")
Connexion..
 
 
 
Set Rs=CreateObject("Adodb.RecordSet")
Rs.open Sql,Cn

[cerede2000]

Perso je trouve plus propre le rajout de la référence Microsoft ActiveX Data Objects Library

[Invité]

Perso je trouve plus propre le rajout de la référence Microsoft ActiveX Data Objects Library

les références aux Api ca fout la grouille en fonction des machines sur lesquels le programme tourne!

Autant que faire ce peut utilises CreateObject!

[kimou75]

cerede2000, ca ne fonctionne pas mieux avec

Je vais essayer la méthode d'Rdurupt.