erreur de conexion a une base de donneés access avec excel(vba)
salut a tout le monde,
Je suis entrein de developper une application excel(vba)/access, mais j ai eu un probleme, j arrive pas a me connecter a ma base de donner access 2000, il me donne erreur dans la ligne oú j assigne le provider de conexión.
le code est le suivant :
Code:
1 2 3 4 5 6 7 8 9 10 11
|
Private Sub ConnecterBase(ConnectBD As Object, Optional rs As Object, Optional pa As Object)
Set ConnectBD = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set pa = CreateObject("ADODB.Recordset")
With ConnectBD
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = chemin_de_base_donnees
.Open
End With
End Sub |
merci de votre aide