Discussion :

[nekcorp]

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.

[Menhir]

Un truc qui me semble douteux dans ton code, c'est l'utilisation de Function.
Pour moi, une fonction a pour unique usage de renvoyer une valeur, pas de faire une action.
Or, ta Function ne renvoie aucune valeur mais en plus est remplie de commandes actives, ce qui ne me semble pas très indiqué.
Je ne sais pas si c'est la cause de ton problème mais, à moins d'avoir une EXCELLENTE raison de conserver ça en Function, à ta place je le convertirais en Sub.

De plus j'ai cru comprendre que le underscore correspond à un caractère spécial dans VBA

L'underscore dans le VBE sert à indiquer qu'une ligne de code se prolonge sur la suivante.
Mais, normalement, ce n'est pas activé quant l'underscore est entre guillemets.
Et si c'était le cas, c'est l'éditeur lui-même qui t'indiquerait une faute de syntaxe.

Tu peux commencer par vérifier si ça pose réellement problème.
Essaye le code ci-dessous (j'ai rajouté deux lignes Debug.Print) :

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
Sub 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"
 
    Debug.Print strCommand
    Debug.Print Dir(strCommand)
 
    lngErrorCode = wsh.Run(strCommand, WindowStyle:=0, WaitOnReturn:=True)
    If lngErrorCode <> 0 Then
        MsgBox "Oups !"
    End If
End Sub

Qu'est-ce que tu vois s'afficher dans la fenêtre d'exécution ?

[nekcorp]

Pour moi, une fonction a pour unique usage de renvoyer une valeur, pas de faire une action.

Je suis pas habitué avec VBA et ses pratiques, mais c'est logique car dans d'autres langages les fonctions ont la même utilité.

est remplie de commandes actives

C'est quoi les commandes actives ?

Code :

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

 Qu'est-ce que tu vois s'afficher dans la fenêtre d'exécution ?

J'ai toujours le même message d'erreur et j'obtiens ceci dans la fenêtre d'exécution :

Code :

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

C:\users\me\___tmp\monscript.bat

C'est la commande Debug.Print strCommand qui est affichée dans la fenêtre d'exécution pas la Debug.Print Dir(strCommand).

[unparia]

Bonjour

pas la Debug.Print Dir(strCommand).

ce qui veut clairement dire que le chemin de fichier 'C:\users\me\___tmp\monscript.bat' n'existe pas.
--->> Il n'est entre autres pas impossible que le nombre de "_" soit différent ou que le caractère "_" soit un autre caractère que le caractère 95

[nekcorp]

Bonjour

ce qui veut clairement dire que le chemin de fichier 'C:\users\me\___tmp\monscript.bat' n'existe pas.
--->> Il n'est entre autres pas impossible que le nombre de "_" soit différent ou que le caractère "_" soit un autre caractère que le caractère 95

Ok je crois savoir à quoi c'est dû. Je fais les tests en rentrant chez moi et je vous fait un retour.

Encore merci pour vos réponses.

[Menhir]

Tu ne serais pas en train d'essayer d'accéder aux répertoires user d'un utilisateur qui n'est pas celui logué au lancement de la macro ?

Dans la fenêtre d'exécution directement, tape :

Code :

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

? Dir("C:\users\me")

Si ça plante, les "_" sont définitivement hors de cause.