Exporter le contenu d'une feuille EXCEL vers une table d'une BDD ACCESS

Sub ActionsTableAccess()
Dim Cn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Requete As String

Set Cn = New ADODB.Connection
Set Rst = New ADODB.Recordset

Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.ConnectionString = Application.GetOpenFileName
Cn.Open

Requete = "DELETE FROM RailEventMessage"
Cn.Execute Requete

On Error GoTo Code_Err
' Créer un objet boite de dialogue d'ouverture de fichier
Set fd = Application.FileDialog(msoFileDialogOpen)
Dim vrtSelectedItem As Variant
' Ouvrir l'objet pour le choix du fichier
With fd
If .Show = -1 Then
VPathFic = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set fd = Nothing
' Lier la feuille Excel à la Bdd Access
DoCmd.TransferSpreadsheet acLink, 8, "Feuil1", VPathFic, True, ""
' Importer les données
NomTbl = "MATABLE" ' Nom de la table dans la Bdd Access
StrSQL1 = "INSERT INTO " & RailEventMessage & "( MesCHampsDeLaTableAccess)"
StrSQL2 = "SELECT * FROM Feuil1;"
DoCmd.RunSQL (StrSQL1 & StrSQL2)
' Supprimer le feuille liée
DoCmd.DeleteObject acTable, "Feuil1"

Code_Exit:
Exit Sub
Code_Err:
MsgBox Error$
Resume Code_Exit

Cn.Close
Set Cn = Nothing
End Sub

Cliquez pour agrandir...

nikkss à dit:

Salut à tous,

Je suis vraiment bloqué sur cet aspect depuis des jours, qqun aurait il une petite idée?
😕

Cliquez pour agrandir...

Sub tranfertCSV_Vers_TableAccess()
'Transfére le fichier CSV vers maTable
'

Dim AccessCn As ADODB.Connection
Dim AccessRst As ADODB.Recordset
Dim Csv_CN As New ADODB.Connection
Dim Csv_Rst As New ADODB.Recordset
Dim DossierCSV As String, NomTable As String
Dim FichCSV As String, MaBase As String
Dim nbEnr As Long
Dim Requete As String

Set AccessCn = New ADODB.Connection
Set AccessRst = New ADODB.Recordset

AccessCn.Provider = "Microsoft.Jet.Oledb.4.0"
AccessCn.ConnectionString = Application.GetOpenFileName
AccessCn.Open

Requete = "DELETE FROM maTable"
AccessCn.Execute Requete


'Répertoire du fichier CSV
DossierCSV = ThisWorkbook.Path
'Nom du fichier CSV à transfèrer
FichCSV = "monFic.csv"
'Chemin et nom de la base Access
MaBase = "Test.mdb"
'Nom de la Table Access
NomTable = "maTable"


'Connection au fichier CSV
Csv_CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DossierCSV & ";Extended Properties='text;FMT=Delimited'"
'Requète dans le fichier CSV
Csv_Rst.Open "SELECT * FROM " & FichCSV, Csv_CN, _
adOpenStatic, adLockOptimistic

'Connection à la base de données Access
Set AccessCn = New ADODB.Connection
AccessCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & MaBase

Csv_CN.Execute "SELECT * INTO [" & NomTable & "] IN '" & _
MaBase & "' From [" & FichCSV & "]", nbEnr


AccessCn.Close
Csv_Rst.Close
Csv_CN.Close
Set AccessRst = Nothing
Set AccessCn = Nothing
Set Csv_Rst = Nothing
Set Csv_CN = Nothing
End Sub

Cliquez pour agrandir...

DoCmd.TransferSpreadsheet acImport, 10, "MaTable", "MonFichier.xlsb", True, ""

Cliquez pour agrandir...