VBA: Transfert de données d'Excel vers Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

22/03/2016, 16h31
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:

cn.Execute "Delete From Table1"

Ça supprime tous les enregistrements de Table1
22/03/2016, 16h36
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:

1 2 cn.execute "Dlete from Table1;"
Édite: Trop tard!
22/03/2016, 16h41
kimou75

Le souci est des la première ligne

Code:

Dim cn As ADODB.Connection

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

Code:

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

22/03/2016, 16h45
cerede2000

Perso je trouve plus propre le rajout de la référence Microsoft ActiveX Data Objects Library :)
22/03/2016, 16h50
Invité

Citation:

Envoyé par cerede2000

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!
22/03/2016, 16h51
kimou75

1 pièce(s) jointe(s)

cerede2000, ca ne fonctionne pas mieux avec :( Pièce jointe 204684

Je vais essayer la méthode d'Rdurupt.
22/03/2016, 16h56
Invité

Si to application à été conçu sur un ordi 32bits et que ton client à une 64bits ca plante si tu utilises les références de vba!
22/03/2016, 16h58
kimou75

1 pièce(s) jointe(s)

Maintenant je suis planté à l'execution de cette ligne

Code:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\Users\kguesmia\Documents\Alerte CASSE appro\Casse_appro.accdb;"

Pièce jointe 204687
22/03/2016, 16h58
cerede2000

1 pièce(s) jointe(s)

Ce n'est pas le bon que tu as pris ;)
Pièce jointe 204686

@rdurupt : Je ne suis pas fan du tout late binding ;)
Je préfères les objets bien déclarés en plus on bénéficie comme ça d'intellisense
Il est vraie en revanche que sur certains postes (Office x64 notamment) ça soit un peu problématique :(
22/03/2016, 17h01
cerede2000

Citation:

Envoyé par kimou75

Pièce jointe 204687

Oh la belle erreur automation :)

Essaye avec le rajout de la référence correcte juste pour voir :)
22/03/2016, 17h03
kimou75

Pas mieux :(

Ça tombe KO à la même étape.
22/03/2016, 17h04
cerede2000

La ça sent pas bon, j'ai déjà rencontrés quelques cas comme ça, lié à des MAJ Windows ou Office qui avait mis le boxon dans l'accès aux API.

Tu utilise un connexion pour le fichier mdb!
Code:

1 2 Provider="Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb; Persist Security Info=False;"

22/03/2016, 17h11
kimou75

Si l'un de vous à une autre méthode de transfert vers Access qui fonctionne sans problème, je suis également preneur !
22/03/2016, 17h16
Invité

Après ça dépend si ton fichier Excel est enregistrer ou pas!
Mais avant donnes nous de informations pour nous dire que ça fonctionne!

D toute les façon tu n'échappe pas à Ado!

Sinon il faut ouvrir un session Acces.application dna vba! Mais personnellement je n'aime pas! Mais je sais faire.
22/03/2016, 17h24
kimou75

Yes super ! ca passe !

Maintenant j'ai des petits souci pour alimenter ma table Access. Je suis en train de vérifier mon code. Je reviens vers vous dans l'heure quoi qui l'arrive ;)
22/03/2016, 18h03
kimou75
Ca fonctionne tres bien ! merci beaucoup :D

j'ai juste un dernier petit souci: j'ai voulu enregistrer ma table Access et ensuite la fermer. J'ai donc ajouté
Code:

1 2 rs.save rs.close
Mais j'ai de nouveau l'erreur Automation.
22/03/2016, 18h17
Invité
Tu n'as pas besoin s'enregistrer ta table Access Rs.update le fait
Seule Rs.Close est utile!
Code:

1 2 3 .Update End With

Voir 40 message(s) de cette discussion en une page