Problème connexion Excel - access
Bonjoru j'essaye de me connecter à ma base de données access via mon fichier Excel
Voici le code :
Private Sub Commande1_Click()
Dim source As ADODB.Connection
Dim t_list As ADODB.Recordset
Dim chemin As String, texte_SQL As String
''''' Création des variable pour la création de la requête
''''' Chaine de caractères
Dim Departement, Objet, NomImage, ActiviteExeLign1, ActiviteExeLigne2, ActiviteExeLigne3 _
, Nom, Marque, Priorite, Observation, Preconisation, ActionSoldee, Status, Metier, Reference, TypeTravail _
, Statut As String
''' Entier
Dim Nombre, Num_Obs, Annee, Nb_personne _
, TempsEstime, Plannificateur, Acceptation, OT As Integer
''' Date
Dim DateDebut, DateFin As Date
' Ouverture de la base de données Access
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
chemin = "C:\Users\jma2755\Desktop\2 - Fichier Apave" ' Pour avoir le même chemin que le fichier : ActiveWorkbook.Path
source.Open chemin & "\BaseApave.mdb" /////////// PROBLEME ICI
Set t_list = New ADODB.Recordset
Mais il me met un message d'erreur :
Format de base de données non reconnu.
Je précise que le chemin est bon mais je ne sais pas d'ou est le problème.
Quelqu'un peut m'aider s'il vous plait.
Merci beaucoup.
Cordialement.
Bonjour Nemesiss
Question peut-être bête, mais quel est le format (version) de ta base de donnée ?
A+