Shell MSACCESS erreur

Le
flomen
Bonjour,

Je me heurte à un problème qui doit être simple à régler pour des
spécialistes, pour moi je n'arrive pas à trouver la solution.
Mon problème est le suivant :
A partir d'un application Access je souhaite exécuter un autre application
access qui se trouve dans le répertoire indiqué dans la cde ci-dessous. Le
répertoire et le nom de la base contiennent le caractère blanc (que je ne
souhaite pas changer) ci qui provoque une erreur qui me dit qu'il ne trouve
pas l'application D:Test.mdb !!!

Call Shell("MSACCESS D:Test AppliTest Access.md", 1)

Access est perturbé par la présence d'un blanc, comment puis-je solutionner
ce problème sans renomer le répertoire et la base ?

D'avance merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #6368851
Salut,

"flomen"
| Je me heurte à un problème qui doit être simple à régler pour des
| spécialistes, pour moi je n'arrive pas à trouver la solution.
| Mon problème est le suivant :
| A partir d'un application Access je souhaite exécuter un autre application
| access qui se trouve dans le répertoire indiqué dans la cde ci-dessous. Le
| répertoire et le nom de la base contiennent le caractère blanc (que je ne
| souhaite pas changer) ci qui provoque une erreur qui me dit qu'il ne trouve
| pas l'application D:Test.mdb !!!
|
| Call Shell("MSACCESS D:Test AppliTest Access.md", 1)
|
| Access est perturbé par la présence d'un blanc, comment puis-je solutionner
| ce problème sans renomer le répertoire et la base ?


Call Shell( "MsAccess.exe" "D:Test AppliTest Access.mdb", 1)

Note: Même si pas obligatoire, il est plus propre d'ajouter le .exe

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
flomen
Le #6368801
Bonjour,
Merci d'avoir répondu, cependant votre solution ne fonctionne pas, erreur de
syntaxe, l'avez-vous essayée ?
Ce qui pose problème, ce sont les blancs dans le nom du répertoire et dans
le nom de la base access.


Salut,

"flomen"
| Je me heurte à un problème qui doit être simple à régler pour des
| spécialistes, pour moi je n'arrive pas à trouver la solution.
| Mon problème est le suivant :
| A partir d'un application Access je souhaite exécuter un autre application
| access qui se trouve dans le répertoire indiqué dans la cde ci-dessous. Le
| répertoire et le nom de la base contiennent le caractère blanc (que je ne
| souhaite pas changer) ci qui provoque une erreur qui me dit qu'il ne trouve
| pas l'application D:Test.mdb !!!
|
| Call Shell("MSACCESS D:Test AppliTest Access.md", 1)
|
| Access est perturbé par la présence d'un blanc, comment puis-je solutionner
| ce problème sans renomer le répertoire et la base ?


Call Shell( "MsAccess.exe" "D:Test AppliTest Access.mdb", 1)

Note: Même si pas obligatoire, il est plus propre d'ajouter le .exe

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Eric
Le #6368791
Bonjour,

Call Shell("MsAccess.exe " & chr(34) & "D:Test AppliTest Access.mdb" &
chr(34), 1) devrait faire l'affaire.

Bonjour, ...
Ce qui pose problème, ce sont les blancs dans le nom du répertoire et dans
le nom de la base access.
--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

pbserv
Le #6368781
bonjour,

pour simplifier l'utilisation de la fonction Shell, j'avais écrit une
petite fonction :
Public Function RunApp(ByVal sNomApplication As String, _
Optional ByVal sParametres As String =
vbNullString, _
Optional ByVal eWindowStyle As VbAppWinStyle =
vbNormalFocus, _
Optional ByVal bAffErreur As Boolean = False) _
As Boolean
On Error Resume Next
If Len(Trim$(sParametres)) > 0 Then
sNomApplication = sNomApplication & " """ & Trim$(sParametres) &
""""
End If
RunApp = Shell(sNomApplication, eWindowStyle)
If err And bAffErreur Then
MsgBox "Erreur n°" & err.Number & vbCrLf & "Description : " &
err.Description, _
vbExclamation, "Fonction RunApp()"
End If
End Function

Utilisation dans votre cas :
RunApp "msaccess.exe", "D:Test AppliTest Access.mdb"

Philippe

On 13 jan, 10:30, Eric
Bonjour,

Call Shell("MsAccess.exe " & chr(34) & "D:Test AppliTest Access.mdb" &
chr(34), 1) devrait faire l'affaire.

flomen a écrit :> Bonjour, ...
Ce qui pose problème, ce sont les blancs dans le nom du répertoire e t dans
le nom de la base access.


--
A+
Erichttp://www.mpfa.info/
Archives :http://groups.google.fr/group/microsoft.public.fr.access?hl=fr=



flomen
Le #6368741
Merci Eric,

Effectivement c'est bien la bonne solution, ça fonctionne très bien

Encore merci


Bonjour,

Call Shell("MsAccess.exe " & chr(34) & "D:Test AppliTest Access.mdb" &
chr(34), 1) devrait faire l'affaire.

Bonjour, ...
Ce qui pose problème, ce sont les blancs dans le nom du répertoire et dans
le nom de la base access.
--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Publicité
Poster une réponse
Anonyme