Connexion Excel - Access avec mot de passe

Bonjour,

Je souhaite établir une connexion entre Excel et une base Access en VBA (test pour le moment)... jusqu'à là ca va...

Le pb est que la base Access doit être protégée par mot de passe (que je connais).. et là j'ai un problème avec la syntaxe.

mon code test:
--------------------------------------------------------------------------------------------
Option Explicit

Public vBaseDeDonnées As New ADODB.Connection
Public vDonnées As New ADODB.Recordset
Public vTable As String
Public vSource As String
--------------------------------------------------------------------------------------------
Sub Connexion()
Dim vSQL As String
Dim vDossier As String

vDossier = "C:\Documents and Settings\cdesboo\Desktop\Test Acces DB via VBA\"
vSource = "OD00000001.mdb"

vTable = "Contact"
vBaseDeDonnées.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "persist security info=false;" & "data source=" & vDossier & vSource, ";UserID=Administrator" & ";Password=1122334455" 

vSQL = "Select * From " & vTable

vDonnées.Open vSQL, vBaseDeDonnées, adOpenStatic, adLockReadOnly

vBaseDeDonnées.Close

End Sub
----------------------------------------------------------------------------------------------

Sans mot de passe tout est ok.
La synthaxe est-elle correcte ? si oui je doit me tromper sur le compte utilisateur ou sur le mot de passe.

???

Merci d'avance

Oldeb

Bonjour
t'as une erreur de syntaxe juste après vsource il faut ecrire & au lieu de ,
ça suppose que tout est dans la même ligne
Bonne chance
vBaseDeDonnées.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "persist security info=false;" & "data source=" & vDossier & vSource & ";UserID=Administrator" & ";Password=1122334455" 

Salut,

Merci pour la correction.
Malgrès tout une erreur apparait, ce qui semble signifier que la valeur du UserID n'est pas valable ou que les synthaxes UserID=xxxx et/ou Password=xxxx ne sont pas correcte.

D'autres idées?

Merci

Oldeb

Re-salut,

Pour info, j'ai fini par trouver la réponse sur ce site côté VB dans un fichier .bas

la synthaxe :

vBaseDeDonnées.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "persist security info=false;" & "data source=" & vDossier & vSource & ";Jet OLEDB:Database Password=1122334455"

@+

Oldeb