Import excel dans access

Version imprimable

Bonjour,

Je cherche à mettre mon code vba Excel sous access mais j' y arrive pas! Je vous explique: Il s'agit d'un code qui fait de l' import des colonnes excel dans une table access, sauf que le code je le mettais sous excel; maintenant, Je souhaite mettre le code sous access, comme ça je peux faire cet import à partir de n'importe quel fichier excel vers ma base access.

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
Sub ADOFromExcelToAccess()
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
    Chemin = ActiveWorkbook.Path
    Set db = OpenDatabase("chemin database.mdb")
    Source = Chemin & "\database name"
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Source & ";"
 
    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.Open "[MA TABLE ACCESS]", cn, adOpenKeyset, adLockOptimistic, adCmdTable  ' all records in a table
 
       r = 2 ' the start row in the worksheet
    Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A
        With rs
            .AddNew ' create a new record
            ' add values to each field in the record
            .Fields("COL1") = Range("A" & r).Value
            .Fields("COL2") = Range("B" & r).Value
 
            .Update ' stores the new record
        End With
        r = r + 1 ' next row
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    End Sub

Merci d'avance,

bonjour,

Code:

1
2
     cSQL = "INSERT INTO test ( [champ1], [champ2], [champ3], [champ4], [champ5], [champ6],[champ7] ,[champ8] ,[champ9]  ) SELECT F1, F2, F3, F4, F5, F6, F7, F8, F9 FROM  [" & Feuille & "$] in '" & Dossier & "\" & Fichier & "' 'excel 8.0;HDR=No;IMEX=1;' ;"
CurrentDb.Execute cSQL

19/05/2016, 16h43
Sarah_Ber

Merci rdurupt!
"test" correspond bien à ma table access?
19/05/2016, 17h14
Invité

A vrai dire, j'en sais rien, comme les champs, je ne sais même pas si la première ligne de ton fichier Excel continent les entête colonne ou non dans mon exemple j'ai mis non mais je ne sais pas!

Il faut m'en dire un peut plus sur le nom de ta table et le nom de champs ansi que sur t feuille Excel si tu veux que j'en dise plus!
20/05/2016, 10h18
Sarah_Ber

-Ma feuille Excel"Resultats" comporte les entêtes suivants: Id_pays, Nom_pays, Resultat.
-Ma table Access s'appelle IMPORT_ExcelToAccess, les attributs de cette table seront alors: ID_country, Name_Country, Result.

Merci :)

1 pièce(s) jointe(s)

Bonjour,

Pièce jointe 210281 Image= FROM [Resultats$]

Code:

1
2
cSQL = "INSERT INTO [IMPORT_ExcelToAccess] ([ID_country], [Name_Country], [Result]  ) SELECT [Id_pays], [Nom_pays],[Resultat] FROM  [Resultats$] in 'c:\MyRepertoire\MyFichier.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' ;"
CurrentDb.Execute cSQL

20/05/2016, 18h08
Sarah_Ber

Merci bcp rdurupt!

Ton code avec [peu de lignes] marche super bien! Tu m'as sauvée la vie !
Bon weekend :)

Bonjour,
Juste pour information la même requête fonctionnait sur Excel!

Code:

1
2
3
4
Set cn = New ADODB.Connection
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & Source & ";"
cSQL = "INSERT INTO [IMPORT_ExcelToAccess] ([ID_country], [Name_Country], [Result]  ) SELECT [Id_pays], [Nom_pays],[Resultat] FROM  [Resultats$] in 'c:\MyRepertoire\MyFichier.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' ;"
Cn.Execute cSQL