[VBA] Commande shell

wsl1912 1176Messages postés 3 novembre 2006Date d'inscription - Dernière réponse le 3 déc. 2008 à 15:30

Bonjour à tous
J'essai de réaliser cette instruction en VBA:
Shell ("CMD.EXE FOR %%I IN (*.txt) DO MOVE D:\rep1\%%I D:\rep2")
seulement, cela ne fonctionne pas, cela n'ouvre qu'une fenêtre dos... pourquoi ?
Merci d'avance

[VBA] Commande shell »

Suggestions

[VBA] Commande shell
Ouvrir un fichier avec VB Excel (Résolu) » Forum
[VBA] Problème avec la commande shell » Forum
Linux - Le shell » Articles
Commande shell envoyer mail (Résolu) » Forum
Exécuter un script shell » Fiches pratiques

Plus

Réponse

blux 12858Messages postés 26 août 2001Date d'inscription ModérateurStatut 26 mai 2012Dernière intervention 19 sept. 2007 à 11:20

Salut,

Tape cmd /? dans une fenêtre et tu verras tous les paramètres autorisés...

Pas de commandes sur la ligne de commande ! ;-)

As-tu essayé cmd.exe /C "for......")

Ajouter un commentaire

Réponse

wsl1912 1176Messages postés 3 novembre 2006Date d'inscription 19 sept. 2007 à 11:42

Dans une fenêtre dos, la commande

 FOR %%I IN (*.txt) DO MOVE D:\rep1\%%I D:\rep2\

fonctionne parfaitement mais si je la rajoute dans un programme Visual Basic Application pour Excel, comme ceci:

Shell("CMD.EXE /C FOR %%I IN (*.txt) DO MOVE D:\rep1\%%I D:\rep2\")

cela ne fonctionne pas...

Ajouter un commentaire

Réponse

blux 12858Messages postés 26 août 2001Date d'inscription ModérateurStatut 26 mai 2012Dernière intervention 19 sept. 2007 à 16:22

Faut peut-être mettre les instructions entre "...

Ajouter un commentaire

Réponse

wsl1912 1176Messages postés 3 novembre 2006Date d'inscription 20 sept. 2007 à 11:17

Non, si je met les "", VB m'indique une erreur de syntaxe

Ajouter un commentaire

Réponse

blux 12858Messages postés 26 août 2001Date d'inscription ModérateurStatut 26 mai 2012Dernière intervention 20 sept. 2007 à 11:35

C'est normal, il faut mettre les guillemets avec leur code ascii pour que vb ne grogne pas :

Dim a As String
a = "CMD.EXE /K " & Chr(34) & " dir " & Chr(34)
Shell (a)

Ca marche chez moi...

Ajouter un commentaire

Réponse

wsl1912 1176Messages postés 3 novembre 2006Date d'inscription 20 sept. 2007 à 11:48

La commande dir fonctionne chez moi également mais pas For

Ajouter un commentaire

Afficher les 11 commentaires

bfiguig - 3 déc. 2008 à 12:25

bonjour à tous,
j'ai le meme le probleme avec ce code:

Shell cmd.exe /c D:\Fiche BDD\oraclehash.exe
j'ai erreur 53 fichier introuvable
et dans la fenetre dos j'ai ce message :
"'D:\Fiche' n'est pas reconnu en tant que commande interne ou externe, un programmeexecutable ou un fichier de commandes"
le Shell ne supporte pas un nom de repertoire composé de deux noms separer par de l'espace
est ce qu'il y a une solution pour resoudre ce probleme

en fait je lance ce code :Shell cmd.exe /c D:\Fiche BDD\oraclehash.exe
à partir d'une macro dans un fichier excel

merci d'avance

blux- 3 déc. 2008 à 13:11

Mettre des guillemets ?

bfiguig - 3 déc. 2008 à 13:38

ou mettre les guillemets ??
merci

blux- 3 déc. 2008 à 14:08

"D:\Fiche BDD\oraclehash.exe" ?

bfiguig - 3 déc. 2008 à 14:32

Re-bonjour,
voici mon code "D:\Fiche BDD\oraclehash.exe"
je crois que c'esrt un probleme d'espace entre Fiche et BDD (le nom du repertoire) car quand je colle les deux noms ficheBDD je n'ai plus d'erreur
alors je ne sais pas quoi faire pour resoudre ce probleme

cordialement

blux› blux - 3 déc. 2008 à 14:38

copie ta ligne de code telle qu'elle est frappée, car cela m'étonnerait qu'il n'y ait pas besoin de guillemets ou de parenthèses quelque part...

bfiguig - 3 déc. 2008 à 14:51

voici la ligne de code :

Shell "cmd.exe /c" & "D:\Fiche BDD\oraclehash.exe " & USER & " " & mot_de_passe & ">" & "D:\Fiche BDD\" & USER & "_" & iInd & ".txt", vbNormalFocus

voici mon code
je te precise que ca marche quand le nom du repertoire n'est pas composé

voila
merci

blux› blux - 3 déc. 2008 à 14:58

C'est normal que ça ne marche pas...

Les guillemets sont là pour séparer les différents de la chaine donnée à shell, il faut les doubler pour le paramètre contenant des espaces, soit avec " soit avec un chr(34).

Le but du jeu est de donner :
cmd.exe /c "d:\fiche BDD\...." et non cmd.exe /c d:\fiche BDD\...

Je l'ai expliqué dans mon message 8...

Shell "cmd.exe /c" & chr(34) & "D:\Fiche BDD\oraclehash.exe "& chr(34) & USER & " " & mot_de_passe & ">" & chr(34) & "D:\Fiche BDD\" & chr(34) & USER & "_" & iInd & ".txt", vbNormalFocus

bfiguig - 3 déc. 2008 à 15:28

j'espere que je te prend pas la tête car j'ai mis le code que tu m'a envoyé et ca ne marche pas
et je repete quand j'ai collé les noms composés du repertoire ca fonctionne
je ne comprend rien
je suis sur c'est un probleme d'espace
merci quand meme du temps que tu as passé pour m'aider

blux- 3 déc. 2008 à 15:30

je suis sur c'est un probleme d'espace
Je n'ai jamais dit le contraire !

Colle le code pour voir...

Réponse

lermite222 7380Messages postés 8 avril 2007Date d'inscription 25 mai 2012Dernière intervention 3 déc. 2008 à 15:09

Bonjour tous,
essaye avec...
& "D:\FicheBDD\oracle~1.exe "& etc..
En dos maximum 8 signes +3 pour l'extension, idem pour les répertoirs. Les espaces sont tous simplement supprimés.
les noms de rép ou de fichier sont numérotés
Exemple:
Christianne.exe = Christ~1.exe
Christian.exe = Christ~2.exe
A+

Ajouter un commentaire

blux- 3 déc. 2008 à 15:29

Je ne l'utilise pas pour des raisons pratiques, il faut faire un DIR /B sous CMD pour avoir le vrai nom, qui n'est pas forcément ~1 pour des logiciels comme oracle qui crée des tas de sous-rép.

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[VBA] Commande shell

[VBA] Commande shell »

Passage au tout numérique : quel coût pour les particuliers ?