Discussion :

[yucf_miagiste]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour


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


bonne soirée
michel

[jfontaine]

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

[yucf_miagiste]

oui Mr elle est activé

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

[jfontaine]

Essai avec cette syntaxe de connexion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Abed_H]

Bonjour
essaie avec cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yucf_miagiste]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yucf_miagiste]

merci bq jfontaine ca march bien c très gentille