leo13
11-24-2006, 09:23 AM
Hello,
I can`t realise the connexion betwen access(2000) and excel(2000).
when execute the code i would have a bug.
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
the probleme it's in the provider.
thanx for your help.
I can`t realise the connexion betwen access(2000) and excel(2000).
when execute the code i would have a bug.
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
the probleme it's in the provider.
thanx for your help.