Bonjour,

Après avoir fait moult recherches et essais, je me résigne à demander de l'aide.

Ci-dessous un code fort simple permettant de reproduire l'erreur chez moi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1
    Dim test
 
    test = wsh.Run("cmd /C dir *.*", windowStyle, waitOnReturn)
 
End Sub
A l'exécution sur un windows 7 installé sur un ordi boulot, j'ai l'erreur 70.
A l'exécution sur un windows 10 personnel, tout se passe bien.

J'ai tenté de désactiver l'UAC => ça ne change rien.
J'ai tenté de modifier les droits d'accès au cmd.exe dans le Syswow64 => je n'ai pas les droits pour modifier les autorisations.
J'ai tenté de copier le cmd.exe dans mon répertoire courant => ça ne change rien.

J'ai lancé un monitoring de process pour m'assurer que le problème vient bien du cmd.exe => oui, c'est confirmé.

Auriez-vous une idée sur comment résoudre mon problème ?

Bien à vous,

Laurent,