Exportation de données Excel vers Access

Version imprimable

28/11/2007, 16h31
jmh51

Exportation de données Excel vers Access

Bonjour,

Ca fait 1h que je cherche dans les différents forums une solution à mon problème, mais en vain... :cry: Alors, je me permets de vous faire part de ma question :oops:
A partir de deux fichiers excel différents, je dois envoyer des valeurs dans une base de données Access.
Les deux fichiers excel correspondent à des bons de commande de matériau, avec différents renseignements. toutes ces infos doivent se retrouver dans la base de données Access, en cliquant sur un bouton ou en exécutant une macro.
Déjà merci pour votre aide précieuse...
28/11/2007, 17h52
scully2501

Quel est ton problème exact car en tapant exporter excel vers access sur Google j'ai plein de réponse?

Connais tu bien VBA ou pas?
28/11/2007, 19h45
jmh51

Merci de me répondre...
Je dois exporter des valeurs qui sont dans des cellules d'un fichier excel vers une table d'une base de données Access dans les champs correspondants. Je vais quand-même suivre ton conseil et aller voir sur Google... Je n'y avais pas pensé... Bonne soirée et encore merci
28/11/2007, 19h57
Invité

Bonjour

Pourquoi Google, il y a tout ce qu'il faut ici, dans les forums Access, Excel, les FAQs Access et Excel, et bien sûr les articles.

Il faut cependant éclaircir un peu ta demande.

1 - Les cellules font-elles parties d'une plage ?
2 - Est-ce que c'est une feuille entière ?
3 - Comment doivent se présenter les données dans ta base ? Dans une ou plusieurs tables ? Auront-elles la même structure que ton fichier Excel ?

Il faut plus d'informations, et même une ou deux copies d'écran sur ce que tu as et sur ce que tu veux.

bonjour

Pour ajouter un enregistrement dans une table Access:

Ce premier exemple utilise le modèle ADO:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AjoutEnregistrementTableAccess()
    'Nécessite d'activer la référence
    '"Microsoft ActiveX Data Objects x.x Library"
 
    Dim Cn As ADODB.Connection
    Dim Fichier As String, TexteSQL As String
 
    Fichier = "C:\NomBase.mdb"
 
    Set Cn = New ADODB.Connection
    Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Fichier
 
    'Insertion des données dans la Table1 qui contient 3 champs:
        '1 champ date (doit être encadrée par le symbole dièse #)
        '1 champ nombre
        '1 champ texte (doit être encadré par des apostrophes ')
    TexteSQL = "INSERT INTO [Table1] VALUES (#" & _
        Date & "#, " & 12345 & ", '" & Environ("username") & "')"
    Cn.Execute TexteSQL
 
    Cn.Close
    Set Cn = Nothing
End Sub

Il est aussi possible d'utiliser la bibliothèque DAO.
Ci-joint un exemple qui ajoute un enregistrement de 6 champs dans une table Access.
(toutes les données sont encadrées par des apostrophes, quelque soit le type de champ).

Code:

1
2
3
4
5
6
7
8
9
10
Sub exportDonnées_DAO()
Dim Db As DAO.Database
Dim strSQL As String
 
Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False)
strSQL = "INSERT INTO [Table1] VALUES('999','8','DVP','7','mimi','22/10/2007')"
 
Db.Execute strSQL
Db.Close
End Sub

michel

Bonjour,

Merci pour la réponse...
J'ai essayé la 2ème méthode, mais j'ai un message d'erreur au niveau de la commande Db.Execute strSQL : "Run-time Error '3061' : Too fiew parameters. Expected 8. J'ai cherché le problème, mais en vain...
Voici le code au cas où...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub exportdonnées_DAO() Dim db As DAO.Database Dim strSQL, nom, pré, dat, rue, loca, numt As String Dim numr, code As Integer Ligne = 1 nom = Cells(Ligne, 1) pré = Cells(Ligne, 2) dat = Cells(Ligne, 3) rue = Cells(Ligne, 4) numr = Cells(Ligne, 5) code = Cells(Ligne, 6) loca = Cells(Ligne, 7) numt = Cells(Ligne, 8) Set db = DAO.OpenDatabase("c:\test\test_import_data_xls.mdb", False, False) strSQL = "INSERT INTO [Tbl_data] VALUES(nom,pré,dat,rue,numr,code,loca,numt)" db.Execute (strSQL) db.Close End Sub
Merci

bonsoir

Tes variables sont mal utilisées:

http://silkyroad.developpez.com/VBA/LesVariables/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub exportDonnées_DAO()
Dim Db As DAO.Database
Dim strSQL As String
 
Dim Nom As String, Pre As String, Dat As String, Rue As String
Dim Loca As String, Numt As String
Dim Code As Date
 
Nom = 999
Pre = 8
Dat = "DVP"
Rue = 7
Numt = "mimi"
Code = CDate("29/11/2007")
 
Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False)
strSQL = "INSERT INTO [Table1] VALUES('" & Nom & "','" & Pre & "','" & _
    Dat & "','" & Rue & "','" & Numt & "','" _
    & Code & "')"
 
Db.Execute strSQL
Db.Close
End Sub

bonne soirée
michel