OpenCurrentDatabase avec Password - SQL/NoSQL - Programmation
Marsh Posté le 20-03-2005 à 17:34:46
normal que ça ne soit pas la connexion courante. La connexion courante signifie connexion à Excel lui même. Faut que tu ouvres différemments.
je te conseille d'utilisé ADO pour faire la connexion, normalement tu as une chaine de connexion avec l'outil: "microsoft jet".
J'espère t'avoir aider un peu. je ne saurais pas t'en dire plus, ça fais longtemps que je n'y ai plus touché.
Marsh Posté le 20-03-2005 à 20:00:45
Merci, mais le probléme n'est pas là (sans mot de passe sur la base tout marche parfaitement bien) . Le probléme est de trouver comment passer le paramétre de mot de passe (il semble qu'une piste soit de passer par un shell). Si quelqu'un a une idée ...
Marsh Posté le 21-03-2005 à 14:44:21
Marrant, y'a le bon nombre de paramètre
Y'aurait pas un problème avec :
Dim acApp As New Access.Application |
Faudrait pas plutôt faire :
Dim acApp As Access.Application |
Marsh Posté le 01-12-2005 à 13:23:53
kilimanjaro a écrit : Bonjour |
T'as trouvé la solutin à ton pb ? j'ai le même pb.
Marsh Posté le 29-01-2006 à 18:49:36
Voilà ce que j'ai fait
Dim strDbName As String
Dim MaTable As DAO.Recordset
strDbName = "d:\CHEMIN\TOTO.mdb"
Set labase = OpenDatabase(strDbName, False, False, "MS Access;PWD=MONMOTPASSE" )
Marsh Posté le 19-03-2005 à 13:11:12
Bonjour
Je dois sous VBA excel lancer une macro dans une base access munie d'un password
la commande OpenCurrentDatabase ne semble pas accepter le passage d'un password.
ainsi :
SUB LANCE
Dim acApp As New Access.Application
Set acApp = New Access.Application
acApp.OpenCurrentDatabase "D:\MABASE.mdb" , false , "MONPASSWORD"
acApp.Run "MISE_A_JOUR_SAISIE"
acApp.Quit
Set acApp = Nothing
end sub
ne fonctionne pas (nombre d'arguments incorrect pour OpenCurrentDatabase)
Quelqu'un peut il m'aider ? (pour info cela marche sous Access2003 mais je suis sous Access2000)
Message édité par kilimanjaro le 20-03-2005 à 17:12:19