chaine de connexion vba excel

bonjour

j'ai un prob avec une application vba excel avec la chaine de connexion le système me donne ce msg:objet requis
et voila la syntaxe de la chaine de connexion:

Code:

---

1 2 3

Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "\\casrvdc1\c$\Inetpub\crm.mdb"

---

merci pour vos réponses

bonjour


As tu activé la référence "Microsoft ActiveX Data Objects x.x Library"


bonne soirée
michel

Peux tu nous dire quelle ligne de code pose problème.
Si problème d'objet il est probable que ce ne soit pas la chaine de connexion

oui Mr elle est activé

le problème est sur cette ligne
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/crm.mdb"

Essai avec cette syntaxe de connexion

Code:

---

dbBase = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets.Application.ActiveWorkbook.Path & "\crm.mdb;Persist Security Info=False"

---

C'est quoi comme variable Server?

Bonjour
essaie avec cette syntaxe

Code:

---

1 2 3 4 5

' Coché la référence Microsoft ActiveX Data Objects 2.8 Library Dim cn As ADODB.Connection Set cn = New ADODB.Connection MaDb = App.Path & "\crm.mdb" Cn = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & MaDb

---

Abed_H

merci mes ami ca marche mnt mais un petit soucis la base est installé sur un serveur et quand je veux se connecter à la base j'ai un problème erreur d'automation et voila ma syntaxe :

Code:

---

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Worksheets.Application.ActiveWorkbook.Path & "\\casrvdc1\c$\Inetpub\crm.mdb;Persist Security Info=False"

---

merci bq pour vos collaborations

Attention,
Worksheets.Application.ActiveWorkbook.Path retourne le chemin du classeur.
Tu ne peux pas ajouter un chemin réseau après

Essai comme ca.

Code:

---

1 2	cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\casrvdc1\c$\Inetpub\crm.mdb;Persist Security Info=False"

---

merci bq jfontaine ca march bien c très gentille