Impossible d'ouvrir la base de données parce que celle-ci est manquante.

Version imprimable

Bonjour, je dois ouvrir un fichier Access qui est protégé par un nom d'utilisateur et un mot de passe. Par la suite, je dois exporter des informations de la base de données dans un fichier Excel pour ensuite fermer la base de données. Cette opération se fait présentement de façon manuelle tous les lundis matin. Pour être sur que la personne en charge ne l'oubli pas, on m'a assigné la demande d'automatiser ce traitement. Cependant, j'ai quelques difficultés:

Voiçi le code de mon fichier vbs:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Option Explicit Dim objAccess, objShell Dim strPathToMDB Dim workgroup Dim user, password, application strPathToMDB = "C:\maBase.mdb" application = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" Set objShell = CreateObject("WScript.Shell") Set objAccess = CreateObject("Access.Application") workgroup = "C:\maSecurite.MDW" user = "Admin" password = "pwdAdmin" objShell.run Chr(34) & application & Chr(34) & " " & Chr(34) & strPathToMDB & Chr(34) & " /nostartup /user " & Chr(34) & user & Chr(34) & _ " /pwd " & Chr(34) & password & Chr(34) & " /wrkgrp " & Chr(34) & workgroup & Chr(34) Set objAccess = GetObject(,"Access.Application") objAccess.OpenCurrentDatabase(strPathToMDB) objAccess.Run "exportQuery" objAccess.closeCurrentDataBase objAccess.Quit Set objAccess =Nothing
Voiçi le code de exportQuery:
Code:

1 2 3 Sub exportQuery() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryExport", "C:\qryBase.XLS", True End Sub
Quand j'exécute ce script en local, ça fonctionne. Cependant quand j'exécute ce script sur un serveur, ça plante.

La base de données s'ouvre, et après je reçois le message suivant:
Erreur :"Impossible d'ouvrir la base de données parce que celle-ci est manquante, ou a été ouverte par un autre utilisateur en mode exclusif."
Code : 800A1EBA

La base de données existe puisqu'elle s'ouvre et n'a pas été ouverte par un autre utilisateur en mode exclusif.

Alors ma question est pourquoi ce script fonctionne en local et pas en réseau? Et comment règler le problème?

Merci

23/01/2007, 15h52
SfJ5Rpw8

quand tu dis la base de donnée s'ouvre c'est bien la base qui s'ouve ou juste access ..?

La base de données, car le formulaire s'affiche lors de l'ouverture...
Donc j'ai l'impression que le script s'éxcute jusqu'à cette ligne:
Code:

1 2 objShell.run Chr(34) & application & Chr(34) & " " & Chr(34) & strPathToMDB & Chr(34) & " /nostartup /user " & Chr(34) & user & Chr(34) & _ " /pwd " & Chr(34) & password & Chr(34) & " /wrkgrp " & Chr(34) & workgroup & Chr(34)
Mais que ca plante lorsque le script essaye d'exécuter cette ligne:

Code:

objAccess.OpenCurrentDatabase(strPathToMDB)

Car le reste du script ne s'exécute pas...

23/01/2007, 20h39
SfJ5Rpw8
bon je ne peu pas tester la .. mais il me semble innaproprié... d'utiliser les 2 objets shell et access .. pour accéder à ta base ... l'objet objAccess ... devrai être suffisant.... puis tu n'as pas besoin de faire un GetObject.. puisque tu la déjà ...

rajoute peu-être un
Code:

1 2 objAccess.Visible = True
23/01/2007, 20h50
Subkill

J'y avais pensé, mais ca ne fonctionne pas, j'ai toujours le même message d'erreur.
Et en plus, le problème avec l'objet "Access.Application" c'est que je ne peux pas indiquer mon nom d'utilisateur et mot de passe. :(

Voilà pourquoi j'ouvre ma bd avec l'objet WScript.shell. Mais le problème avec cet objet est que je ne peux pas exécuter ma fonction...
24/01/2007, 08h06
SfJ5Rpw8

avec ton code je pense que tu lance 2 fois Access..., si tu tiens à ton shell ( il doit bien avoir un moyen d'envoyer ce mot de passe autrement..?) enléve le Create... , faudrai peu être une pause (sleep..) ensuite entre le shell Run ... et le getObject...

en simplifié, ce code fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
	Option Explicit
 
	Dim objAccess, objShell, objdb
	Dim strPathToMDB
	Dim application
 
	strPathToMDB = "C:\bd_Test.mdb"
	application =  "C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE"
	Set objShell = CreateObject("WScript.Shell") 	
        objShell.Run Chr(34) & application & Chr(34) & " " & Chr(34) & strPathToMDB & Chr(34) 
     WScript.Sleep 1000
 	Set objAccess = GetObject(,"Access.Application")	
 	Set objdb = objAccess.Currentdb
	msgbox objAccess.CurrentDb.Name
 
	objAccess.Quit     
	Set objAccess =Nothing
     Set objdb = Nothing
     Set objShell = Nothing

24/01/2007, 17h02
Subkill

Bon ben je ne suis vraiment pas chanceux car, moi ca ne marche pas.

J'ai le message d'erreur suivant:

Objet Requis: 'CurrentDb'

Ohhhhh, je viens de constater de quoi. Les tests que je faisais en local était avec une bd de test. Je viens de faire les tests en local avec la bd officiel (celle qui se trouve sur le réseau) et ca ne fonctionne pas. Donc! à ma conclusion de programmeur inexpérimenté en vbscript...le problème se trouve du côté de la bd!

Je ne sais pas plus comment règler le problème par contre :?
24/01/2007, 17h03
Subkill

Citation:

Envoyé par bbil

avec ton code je pense que tu lance 2 fois Access..., si tu tiens à ton shell ( il doit bien avoir un moyen d'envoyer ce mot de passe autrement..?) enléve le Create... , faudrai peu être une pause (sleep..) ensuite entre le shell Run ... et le getObject...

Si je pouvais trouvé le moyen d'envoyer le mot de passe autrement j'en serais bien heureux!
24/01/2007, 20h15
Subkill

J'ai solutionné mon problème sans trop comprendre pourquoi!

J'ai créé un premier vbscript qui contient l'objet WScript.Shell pour ouvrir ma base de données protégées par un mot de passe.

Par la suite j'ai créé un deuxième vbscript qui contient l'objet Access.Application où j'exécute les commandes dont j'ai besoin.

Tout fonctionne bien!

Weird!:lol: 8O :roll: :( ;) :? :P :oops:
24/01/2007, 20h36
Subkill

J'ai fusionné les deux fichiers vbs et j'ai mis un Sleep de 4000 et tout fonctionne.
Donc pour avancer dans mes explications:

La ligne de commande objAccess.Run "exportQuery" s'exécute avant que ma bd soit complètement ouverte qui occasion un message d'erreur.

avec le sleep de 4000 la bd a le temps de s'ouvrir sans problème!