Bonjour,

Voilà j'ai un chemin qui contient des dossiers qui commencent par des underscores, désolé mais c'est pas moi qui est voulu écrire ces dossiers ainsi

Du coup lorsque je souhaite lancer ce script :

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
 
Function RunBatchFile()
 
    Dim strCommand As String
    Dim lngErrorCode As Long
    Dim wsh As WshShell
    Set wsh = New WshShell
 
    ChDir "C:\users\me\___tmp"
    strCommand = "C:\users\me\___tmp\monscript.bat"
    lngErrorCode = wsh.Run(strCommand, WindowStyle:=0, WaitOnReturn:=True)
    If lngErrorCode <> 0 Then
        MsgBox "Oups !"
    End If
End Function
J'obtiens ce message d'erreur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Erreur d'exécution '-2147024894 (80070002)':
Erreur Automation
Le fichier spécifié est introuvable
Je sais que le soucis vient du ___tmp\ car j'ai effectuer un test en créant un dossier tmp\ et le script fonctionne très bien.
De plus j'ai cru comprendre que le underscore correspond à un caractère spécial dans VBA

Comment résoudre ce problème ?

Merci d'avance pour votre aide.