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

**kimou75** · 22/03/2016, 16h26

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

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é · 22/03/2016, 16h36

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** · 22/03/2016, 16h41

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é · 22/03/2016, 16h43

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** · 22/03/2016, 16h45

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

Invité · 22/03/2016, 16h50

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!

**kimou75** · 22/03/2016, 16h51

cerede2000, ca ne fonctionne pas mieux avec

Nom : Capture.PNG
Affichages : 523
Taille : 18,9 Ko

Je vais essayer la méthode d'Rdurupt.

Invité · 22/03/2016, 16h56

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!

**kimou75** · 22/03/2016, 16h58

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

Code :

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

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

Nom : Capture3.PNG
Affichages : 481
Taille : 6,9 Ko

**cerede2000** · 22/03/2016, 16h58

Ce n'est pas le bon que tu as pris

Nom : Capture.PNG
Affichages : 451
Taille : 12,2 Ko

@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

**cerede2000** · 22/03/2016, 17h01

Envoyé par kimou75

Oh la belle erreur automation

Essaye avec le rajout de la référence correcte juste pour voir

**kimou75** · 22/03/2016, 17h03

Pas mieux

Ça tombe KO à la même étape.

**cerede2000** · 22/03/2016, 17h04

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.

Invité · 22/03/2016, 17h06

Tu utilise un connexion pour le fichier mdb!

Code :

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

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

**kimou75** · 22/03/2016, 17h11

Si l'un de vous à une autre méthode de transfert vers Access qui fonctionne sans problème, je suis également preneur !

Invité · 22/03/2016, 17h16

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.

**kimou75** · 22/03/2016, 17h24

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