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 :
A l'exécution sur un windows 7 installé sur un ordi boulot, j'ai l'erreur 70.
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 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,
Partager