Ecrire Commandes Shell

Bonjour,

J'aimerais savoir comment je pourrais lancer la console CMD, écrire du texte dedans et faire ENTER :aie: Depuis VBA bien sur.

Voila comment j'ouvre mon programme :

Code:

---

1 2 3 4 5 6

Sub test()   Dim ret As Variant ret = Shell("C:\Program Files\GNU\Cygwin1.5\cygwin.bat", vbNormalFocus)   End Sub

---

Pour info Cygwin est un émulateur C. Ce que je voudrais c'est qu'une fois le fichier ouvert je puisse via VBA écrire à l'intérieur.
Mon objectif étant de lancer une commande Grep.
Si je devais faire un (lamentable) essaie j'essaierais ce type de commande :

Code:

---

1 2 3 4 5 6 7 8

Sub test()   Dim ret As Variant ret = Shell("C:\Program Files\GNU\Cygwin1.5\cygwin.bat", vbNormalFocus)   ActiveWindow.WriteLine = "Cd /cygdrive/r" '[ENTER] Afin de permettre au programme de s'orienter dans les fichiers ActiveWindow.WriteLine = "grep ABC totot.txt" >> C:/resultat.txt '[ENTER] End Sub

---

Auriez vous une idée de script qui me permettrais de réaliser cette opération ?

Merci beaucoup

Apres avoir creusé j'ai dégagé ce code, bien evidemment il ne foncitonne pas. Cependant je pense que c'est la fcontion SendKeys qui pose problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Cygwin() Dim TaskID As Long TaskID = shell("C:\Program Files\GNU\Cygwin1.5\cygwin2.bat", vbNormalFocus) AppActivate TaskID, True 'Sleep (5000) SendKeys "test", False DoEvents SendKeys "{ENTER}", True AppActivate TaskID, True 'Sleep (5000) SendKeys "password", True SendKeys "{ENTER}", True End Sub

---

Puisque lorsque j'essaie avec le bloc note, je n'obtiens rien non plus :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Notepad()   Dim txtName As String Dim notepadID   Dim notepadID2   notepadID = shell("NOTEPAD.EXE " & txtName, 1) AppActivate notepadID   SendKeys "a", True End Sub

---

Vous n'auriez pas une idée de ce qui pose probleme ?

Merci

Savez pourquoi la commande sleep n'est pas reconnu par mon systeme ?
Quel librairie faut-il ajouter ?

Merci

_ Ia ora na.
_ 1) fonction Sleep : il faut d'abord la déclarer dans un module :

Code:

---

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

---

_ 2) votre routine Notepad : après l'avoir copiée-collée, j'ai bien obtenu l'ouverture du bloc-notes avec affichage d'un a, même en plaçant la variable txtName comme argument

Code:

---

Sub Notepad (txtName)

---

_ PS : dans votre premier message, vous indiquiez

Citation:

---

Depuis VBA bien sur

---

les deux remarques précédentes sont valables pour VB6 (la seule version de Visual Basic en ma possession).
_ Bon courage pour la suite de votre travail.