Le principe laisse un peu à désirer mais ça fonctionne:
Dim i As Long
i = Shell("c:\windows\command.com /k", vbNormalFocus)
Clipboard.Clear
Clipboard.SetText "dir > C:\windows\desktop\test1.txt" & Chr$(13)
AppActivate i
SendKeys "% ep", True
SendKeys "% c", True
Unload Me
saaaaaaaaalut !!
jvoudrai savoir ou est ce quon ecrit les commande parce que dapres mon essay ce code source est juste capable douvrir une fenetre ms dos
mercin davance ciao