Execution d'une commande MsDos avec VBRésolu

Question

Bonjour &#224; tous,

Je suis face &#224; un probl&#232;me inexpliqu&#233; : j'ai une appli msdos qui acc&#232;pte des commandes. Je lance cette appli &#224; l'aide de VBA (EXCEL) et &#231;a marche.
Je veux passer ce bout de code sur VB et l&#224; &#231;a ne marche plus. (J'ai fais le test avec shell et shellexecute)

La commande est la suivante : 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Retour = ShellExecute(0,"open","CheminAppli","command,"",0)

--> Retour = 42 apr&#232;s la commande donc a prioris c'est ok mais rien ne ce passe...

 Fiko ;-)

redblast · Accepted Answer

Salut,



En mettant z&#233;ro au dernier param&#233;tre, l'application est cach&#233;e (c'est
peut-&#234;tre ce que tu veux), ensuite il faut peut-&#234;tre imp&#233;rativement un
handle &#224; la commande pour qu'elle fonctionne (Form1.hwnd par ex.).



Retour = ShellExecute(Form1.hwnd,"open","CheminAppli","command,"",5)

cs_Jack · Answer

Salut
Si tu d&#233;sires lancer un executable, il vaut mieux utiliser la commande SHELL plus simple &#224; utiliser.
ShellExecute est pratique quand on veut laner un fichier .DOC pour qu'il lance automatiquement le programme associ&#233; par d&#233;faut.
Pour les d&#233;tails des param&#232;tres des APIs, charge et installe 'api-guide', gratuit et dispo sur http://www.allapi.net
Pour chaque API, un exemple en VB6

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

fiko81 · Answer

Merci pour vos r&#233;ponses. Avec shellExecute &#231;a marche maintenant.

@+
 Fiko ;-)

Execution d'une commande MsDos avec VB

3 réponses

Discussions similaires