OVH Cloud OVH Cloud

Macros et chemins d'accès

1 réponse
Avatar
GAYOT
comment se fai-il dand les macros d'execution que les=20
chemins d'acc=E8s ne tol=E8rent pas les espaces:

exemple:
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click

Dim stAppName As String

stAppName =3D "Excel.exe M:\Outils de synth=E8ses\Stats=20
commerciaux\Transfert ATC.XLS"
Call Shell(stAppName, 1)

Le tableur s'ouvre bien; mais il m'est dit qu'il ne peut=20
pas ouvrir outils.xls, de.xls ou autre stats.xls.
Ce qui est rageant c'est que le m=EAme type de commande et=20
le m=EAme chemin d'acc=E8s s'effectue correctement:=20
exemple:
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim stAppName As String

stAppName =3D "cwbtf.exe M:\Outils de synth=E8ses\Stats=20
commerciaux\Dossiers de config\transfert stats=20
repr=E9sentants.dtf"
Call Shell(stAppName, 1)

Exit_Commande1_Click:
Exit Sub

Err_Commande1_Click:
MsgBox Err.Description
Resume Exit_Commande1_Click
End Sub

Merci du renseignement

1 réponse

Avatar
Raymond
Bonsoir.

essaie d'encadrer par des guillemets

stAppName = "Excel.exe " & """M:Outils de synthèsesStats
commerciauxTransfert ATC.XLS"""
Call Shell(stAppName, 1)

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"GAYOT" a écrit dans le message de
news:0f4a01c393fa$cca6dae0$
comment se fai-il dand les macros d'execution que les
chemins d'accès ne tolèrent pas les espaces:

exemple:
Private Sub Commande27_Click()
On Error GoTo Err_Commande27_Click

Dim stAppName As String

stAppName = "Excel.exe M:Outils de synthèsesStats
commerciauxTransfert ATC.XLS"
Call Shell(stAppName, 1)

Le tableur s'ouvre bien; mais il m'est dit qu'il ne peut
pas ouvrir outils.xls, de.xls ou autre stats.xls.
Ce qui est rageant c'est que le même type de commande et
le même chemin d'accès s'effectue correctement:
exemple:
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim stAppName As String

stAppName = "cwbtf.exe M:Outils de synthèsesStats
commerciauxDossiers de configtransfert stats
représentants.dtf"
Call Shell(stAppName, 1)

Exit_Commande1_Click:
Exit Sub

Err_Commande1_Click:
MsgBox Err.Description
Resume Exit_Commande1_Click
End Sub

Merci du renseignement