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
