Erreur Export données Excel 2016->Access 2016 avec fichier .accdb

Bonjour les amis

Je vous écris car je suis dans une impasse pour programmer une simple affaire, celle d'exporter des données d'un fichier excel vers un fichier Access en format .accdb. Comme c'est la première fois que je code en VBA une connection entre Excel et Access, j'ai cherché sur internet sur la façon de faire. La majorité des forums que j'ai visités convergent à l'utilisation de DAOEngine que j'ai adapté à mon programme. Et bien sûr ça ne marche jamais du 1er coup. Je reçois l'erreur suivante :

message erreur

Je ne comprends pas d'où vient cette erreur? Est-ce qu'il faut que j'utilise un format différent de .accdb? Est-ce que vous aurez un exemple de code pour ce genre de fonction que vous aurez la gentillesse de m'envoyer?

Merci infiniment de votre aide & excellente journée

Pour info ci dessous le code de la macro correspondante :

Sub Connect_DB_2()
    Dim j As Integer
    Dim strDBpath As String
    Dim oDAO As DAO.DBEngine
    Dim oDB As DAO.Database
    Dim oRS As DAO.Recordset

    'Fenêtre d'invit pour sélectionner le fichier de la FN à compiler
        strDBpath = Application.GetOpenFilename _
        (Title:="Choisir le fichier Access de la Base de Données des FN", _
        FileFilter:="Access Files *.accdb* (*.accdb*),")

            If InStr(LCase(strDBpath), "faux") > 0 Then
                MsgBox "Aucun fichier sélectionné.", vbExclamation, "Sorry!"
                Exit Sub

            End If 'If InStr(LCase(strDBpath), "faux") > 0
                Set oDAO = New DAO.DBEngine
                Set oDB = oDAO.OpenDatabase(strDBpath, False, False)
                Set oRS = oDB.OpenRecordset(target_db, dbOpenTable)          

               oRS.AddNew

               For j = 1 To Selection.Columns.Count              

                   oRS.Fields(j) = Selection.Range("A"&j).Value

               Next j

               oRS.Update

            oDB.Close

End Sub

Bonjour,

Tu as Excel 2016, tu disposes donc de Récupérer et transformer (Power Query).

Tu peux facilement effectuer une requête dans ton fichier Microsoft Access.

Ruban, Données, Récupérer et transformer, Nouvelle requête, A partir d'une base de données, A partir d'une base de données Microsoft Access..

Cdlt.

bonjour

salut au passage Jean-Eric

s'il faut importer de l'Excel dans Access,

ouvrir Access, menu Données externes / nouvelle source, naviguer vers ton Excel

amitiés

Bonjour à tous,

Sinon, j'ai écris une série d'articles sur le sujet, avec quelques démo et code, sur mon blog :

http://tatiak.canalblog.com/archives/excel_base_de_donnees/index.html

et celui-ci en particulier :

http://tatiak.canalblog.com/archives/2016/05/25/33865554.html

Pierre

Re,

Oups !...

j'ai confondu Export et Import.

Cdlt.

Bonjour

Merci pour votre retour. Je suis allé sur le lien que vous m'avez envoyé et ai essayé d'utiliser le code suivant :

Sub Insert_DB(Tbl As String, Head As String, Data As String)

    Req = "INSERT INTO [" & Tbl & "]"
    If Not Head = "" Then Req = Req & " (" & Head & ")"
    Req = Req & " VALUES (" & Data & ")"
    lig = Sql.Query(Req)
End Sub

Il m'affiche une erreur sur la ligne lig = ....

Pourrez vous svp m'aider à résoudre ce problème?

Merci

Rechercher des sujets similaires à "erreur export donnees 2016 access fichier accdb"