Discussion :

[nietzsche64]

Bonjour;

Je souhaite ouvrir une base Access par programmation. Pour cela, j'utilise la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Sub ExecCmd(cmdline$)
   Dim proc As PROCESS_INFORMATION
   Dim start As STARTUPINFO
   Dim ReturnValue As Integer
 
   ' Initialize the STARTUPINFO structure:
   start.cb = Len(start)
 
   ' Start the shelled application:
   ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
      NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
 
   ' Wait for the shelled application to finish:
   Do
      ReturnValue = WaitForSingleObject(proc.hProcess, 0)
      DoEvents
      Loop Until ReturnValue <> 258
 
   ReturnValue = CloseHandle(proc.hProcess)
End Sub

La variable cmdline$ contient le chemin+nom de la base Access que je souhate ouvrir, par exemple : "C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe C:\projets\pgi\BaseSAV\technjp.mdb"

Avec cet exemple, ça fonctionne.

Par contre, si le nom de ma base contient des blancs (espaces), ça ne fonctionne plus. J'ai essayé par exemple :

"C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe C:\projets\pgi\BaseSAV\PGI BES_RES 2002.mdb" : plantage (il recherche la base PGI.mdb)

"C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe C:\projets\pgi\BaseSAV\[PGI BES_RES 2002.mdb]" : plantage

"C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe C:\projets\pgi\BaseSAV\[PGI BES_RES 2002].mdb" : plantage

"C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe" "C:\projets\pgi\BaseSAV\PGI BES_RES 2002.mdb" : pas de plantage mais rien ne s'exécute


Si je crée un raccourci sur le bureau avec le chemin "C:\Program Files\Microsoft Office\2000\Office\MSACCESS.EXE" "C:\projets\pgi\BaseSAV\PGI BES_RES 2002.mdb", ça fonctionne ...


Avez-vous une idée pour résoudre mon problème de nom de base Access contenant des blancs ? Est-ce le ExecCmd qui pose problème ?

Je vous en remercie par avance.

Bonne journée.

[marot_r]

J'essayerai :

Code :

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

"""C:\Program Files\Microsoft Office\2000\Office\MSACCESS.exe"" ""C:\projets\pgi\BaseSAV\PGI BES_RES 2002.mdb"""

A+

[nietzsche64]

Merci beaucoup pour ton aide si rapide.

Malheureusement, cela ne fonctionne pas : ça ne plante pas mais rien ne se passe ...

Je ne sais vraiment pas quoi tester d'autre ...

Merci encore pour ton aide.

Bon dév.

[Jean-Philippe André]

Hello,

la ligne de commande batch suivante fonctionne :

Code :

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

"C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" "D:\JPA\BDD\ZEUS v1.mdb" /compact

dans le cas où tu as des doutes sur la gestion des espaces et des guillemets, passe par un fichier txt transformé en bat et exécuté ensuite

[nietzsche64]

Salut et merci pour ta réponse.

Comme je l'ai écrit dans mon 1er message,

Si je crée un raccourci sur le bureau avec le chemin "C:\Program Files\Microsoft Office\2000\Office\MSACCESS.EXE" "C:\projets\pgi\BaseSAV\PGI BES_RES 2002.mdb", ça fonctionne ...

, ce qui correspond à la syntaxe que tu as écrite, syntaxe qui ne fonctionne pas dans mon ExecCmd.

Je ne comprends pas trop ce que tu me proposes, désolé ...

Je souhaite ouvrir ma base Access via le ExecCmd car je dois attendre ensuite qu'elle soit fermée pour effectuer les traitements suivants.

Je n'ai pas inventé le ExecCmd, je l'avais trouvé sur un forum ...

Si tu as une autre solution, je suis preneur !

Merci encore pour ton aide.

Bonne fin de journée.

Hello,

la ligne de commande batch suivante fonctionne :

Code :

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

"C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" "D:\JPA\BDD\ZEUS v1.mdb" /compact

dans le cas où tu as des doutes sur la gestion des espaces et des guillemets, passe par un fichier txt transformé en bat et exécuté ensuite

[Jean-Philippe André]

OK, dans ce cas tu peux utiliser les fonctions d'attente de fin de traitement de process :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Declare Function WaitForSingleObject Lib "Kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function OpenProcess Lib "Kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Const INFINITE = &HFFFF
 
Function LanceEtAttendLaFin(ByVal CheminComplet As String) As Long
 Dim ProcessHandle As Long
 Dim ProcessId As Long, ret&
 
 ProcessId = Shell(CheminComplet, vbNormalFocus)
 ProcessHandle = OpenProcess(&H1F0000, 0, ProcessId)
 LanceEtAttendLaFin = WaitForSingleObject(ProcessHandle, INFINITE)
 
 End Function
 
Sub test()
LanceEtAttendLaFin "C:\Users\JPA\Desktop\compactage.bat"
MsgBox "terminé"
End Sub

dans mon fichier compactage.bat, j'ai la ligne de commande

Code :

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

"C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE" "D:\JPA\BDD\ZEUS v1.mdb" /compact