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 :
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