Discussion :

[Laurent.solano]

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,

[unparia]

Bonjour
Déjà :
1) si ceci exécuté en ligne de commande :

Code :

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

cmd /C dir *.*"

conduit au même message -->> rien à voir avec VBA et tout avec la configuration de la machine
2) si le 1 fonctionne : à voir avec le responsable informatique car cela signifierait qu'il a empêché l'utilisation de WScript.Shell
3) quel est le répertoire en cours lors du message d'erreur ? (il est peut-être affublé d'attributs n'en permettant pas l'accès)

[vinc_bilb]

Bonjour,

Ce n'est pas la réponse à la question, mais si votre besoin est d'accéder aux structures fichiers / répertoires, vous pouvez le faire sans passer par des commandes de script shell mais en utilisant le File System Object, qui est natif sous VBA, il faut juste ajouter la référence au 'Microsoft Scripting Runtime'
Bonne continuation

[unparia]

Bonjour vinc_bilb

vous pouvez le faire sans passer par des commandes de script shell mais en utilisant le File System Object, qui est natif sous VBA, il faut juste ajouter la référence au 'Microsoft Scripting Runtime'

Sauf que si l'hypothèse exprimée par mon 2) est ce qu'a décidé le responsable informatique, il aura très probablement également inhibé VBS.

[vinc_bilb]

Bonjour vinc_bilb



Sauf que si l'hypothèse exprimée par mon 2) est ce qu'a décidé le responsable informatique, il aura très probablement également inhibé VBS.

=> Merci, Très juste, mais ça devrait permettre de vérifier si c'est un pb de droits utilisateurs ou d'accès au disque/répertoire
Voir http://warin.developpez.com/access/fichiers/#LI-C-3 pour les détails du FSO, qui, quand il est accessible, reste assez puissant

[Laurent.solano]

Merci pour ton retour si rapide.

Le 1) fonctionne.
Le 2) est ce qui m'inquiète, car je n'aurais pas facilement accès à mon responsable informatique. Je suis dans une boite de plusieurs dizaine de milliers de personnes. Nous sommes censé avoir les droits admin sur la machine, sauf certains paramètres qui sont "grisés". Ma question reviendrait donc à "puis-je contourner le problème" ?
3) => Que veux-tu dire par "répertoire en cours lors de l'erreur" ?
- Mon fichier excel est dans un répertoire dédié, sur le bureau, qui dispose de tous les droit d'écriture.
- Le fichier cmd.exe qui est exécuté est dans le sysWow64. Qui est limité, mais que je ne peux modifier.
- Si je déplace le cmd.exe dans mon répertoire dédié, je vois bien que le cmd exécuté est celui de "mon" répertoire, mais ça ne change rien au problème d'exécution.

Pour info pour ceux qui connaîtrait QTP : un collègue arrive à exécuter mon script s'il le lance depuis un environnement QTP (il a le même pb que moi s'il lance depuis excel). N'y a t il pas moyen de créer une "bulle" de privilège qui permettrait de lancer l'exécution depuis excel ?
J'ai tenté d'exécuter excel en mode "administrateur", mais je n'ai pas eu plus de succès.

[unparia]

Ma question reviendrait donc à "puis-je contourner le problème" ?

Si inhibition, seule sa ré-autorisation le rendra disponible. Et cela ne relève que de la décision de ceux en charge de la sécurité, dont le responsable informatique

Que veux-tu dire par "répertoire en cours lors de l'erreur" ?

le curdir, pardi ! Quel est-il ?

[Laurent.solano]

Quelle réactivité de la communauté, je suis impressionné ! merci !

Alors, dans l'ordre :

- si votre besoin est d'accéder aux structures fichiers / répertoires, (...)

=> mon besoin n'est pas celui là. La commande "dir" avait juste pour objectif d'avoir quelque chose de simple. La finalité est d'exécuter une commande python avec tout un tas de paramètre variabilisé.

- le curdir, pardi ! Quel est-il ?

=> n'étant pas un "VBA man", je ne connaissais pas cette commande. Elle me donne le répertoire suivant : "c:\Documents". Faut-il que je change pour mettre l'emplacement de mon script ?

- Si inhibition, seule sa ré-autorisation le rendra disponible. Et cela ne relève que de la décision de ceux en charge de la sécurité, dont le responsable informatique

=> Avez-vous une idée du type de droit qu'il faut demander ? Je ne pense pas que ce soit tout le vba qui soit désactivé, car si je faire un "run" pour ouvrir notepad, ça fonctionne :

Code :

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

1
2
3
    Dim objShell
    Set objShell = CreateObject("shell.application")
    objShell.ShellExecute "notepad.exe", "", "", "open", 1

En alternative, j'ai tenté de mettre ma commande dans un "start.bat", et de lancer ce start.bat. Mais j'obtiens une erreur proche du Permission Denied. Plus précisément, j'ai le message suivant : "Windows ne permet pas d'accéder au périphérique (...). Vous ne disposez peut être pas des autorisations appropriées pour avoir accès à l'élément".

[Laurent.solano]

Bonjour,

Juste pour information, je n'ai plus besoin d'aide sur ce problème.
Je n'ai pas trouvé de solution (donc je ne mets pas "résolu"), mais j'ai contourné.

Pour ceux que ça intéressent : mon besoin premier était d'utiliser le module xlwings avec Python. C'est ce module qui demandait l'accès en ligne de commande, pour envoyer le script à l'interpréteur Python.
En passant par le mode "UDF" de ce module, je n'ai plus de problème.

C'est juste au cas où ça aiderait un passant perdu qui aurait le même problème :-).

Cordialement,