Discussion :

[Borsec28]

Bonjour,

Débutante en programmation, je souhaiterai exporter des données d’un tableur Excel d’une seule feuille vers une table Access contenant les mêmes en-têtes de colonnes. C’est une exportation de nombreuses lignes à réaliser quotidiennement et je souhaite garder toutes mes données antérieures sur Access (en gros je me serts d'Access comme lieu de stockage de mes données Excel pour l’année).
Grâce aux différentes infos trouvées sur les forums notamment j’ai pu trouver certains codes que j’ai adaptés à ma situation. Le code est le suivant :

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
Private Sub test()
   Dim appAccess As Object
   Dim aPath, aDbase, aDSource, aTable, exePath As String
   Dim fileParam As String
   aPath = ActiveWorkbook.Path
   aDbase = "Database1.accdb"
   aDSource = aPath & "\" & aDbase
 
  Set appAccess = CreateObject("Access.Application")
  appAccess.Visible = True
 
  appAccess.OpenCurrentDatabase aDSource
 
Const acExport = 0
Const acSpreadsheetTypeExcel12 = 9
appAccess.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "table test", "C:\Users\a0h35300\Documents\Database1.accdb", True, ""
 
 Application.DisplayAlerts = False
 ThisWorkbook.Saved = True
 Application.Quit
 Exit Sub
 End Sub

Cette macro ne prend pas du tout les données ni les en-têtes contenues dans mon tableur pour les copier dans ma table Access.
Par contre elle m’ouvre un nouveau document Excel avec les données et les en-têtes des colonnes de ma table (qui sont donc vides mais j’ai fais des tests et ca prend bien toutes les données de ma table quand il y en a).

Du coup comment faire pour basculer les données Excel sur une table Access ?

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Const Fichier = "C:\Users\a0h35300\Documents\Database1.accdb"
Dim Sql As String, Cn As Object
Set Cn = CreateObject("Adodb.connection")
With Cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
        .Open
        Sql = "INSERT INTO [table test] select frm.* FROM [Feuil1$] as frm  in '" & ThisWorkbook.FullName & "' 'excel 8.0;HDR=Yes;IMEX=1;' "
        .Execute Sql
        .Close
    End With
    Set Cn = Nothing
End Sub

[Borsec28]

Merci beaucoup rdurupt, ca fonctionne tres bien !

Aurais tu une astuce pour ouvrir mon fichier Access et supprimer les donnees de mon fichier excel une fois tranferees? Si possible, j'aimerai un msgbox me demandant confirmation avant

[Invité]

Vue que tu Exporte d'excel vers Access pourquoi ne pas le faire dans la foulé via Excel?

[Borsec28]

C'est exactement ce que je cherche a faire: avoir un code VBA a la suite de mon exportation qui me demande si tout a bien ete transfere. Si je valide alors cela supprime les donnees de mon classeur excel. Sinon les donnees restent dans mon classeur.

[Invité]

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
Sub test()
Const Fichier = "C:\Users\a0h35300\Documents\Database1.accdb"
Dim Sql As String, RsClub As Object, Cn As Object, Rs As Object, sh As Worksheet
Set Cn = CreateObject("Adodb.connection")
With Cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
        .Open
       Set Rs = CreateObject("Adodb.recordset")
        Sql = "Select count(*)From [table test]"
        Rs.Open Sql, Cn
        nb = Rs(0)
        Rs.Close
        Sql = "INSERT INTO [table test] select frm.* FROM [Feuil1$] as frm  in '" & ThisWorkbook.FullName & "' 'excel 8.0;HDR=Yes;IMEX=1;' "
        .Execute Sql
         Set Rs = CreateObject("Adodb.recordset")
        Sql = "Select count(*)From [table test]"
        Rs.Open Sql, Cn
        If MsgBox("Voulez vous Vider le fichier Excel", vbQuestion + vbYesNo, "Enregistrements Ajoutés(" & Rs(0) - nb & ")") = vbYes Then ThisWorkbook.Sheets("Feuil1").Range("A2:D" & ThisWorkbook.Sheets("Feuil1").UsedRange.Rows.Count).EntireRow.Delete
        Rs.Close
        .Close
    End With
    Set Cn = Nothing
End Sub