Discussion :

[vonemya]

Salut,

J'ai un exécutable qui prend deux paramètres en entrée et me renvoie un entier.
Je souhaite l'appeler depuis mon code VB. Je ne sais pas comment lancer cette exécutable et surtout comment récupérer mon résultat (= l'entier renvoyé par l'exe).

Sous DOS, je fais:
MonExecutable.exe arg1 arg2 <ENTREE>
---> entier

comment faire pour lancer cette commande et récupérer mon résultat dans un Integer et pouvoir ce dernier dans le reste de programme VB.

Merci

[J.Michel]

Un sujet presque identique a été abordé dans le forum VBA Excel:
http://www.developpez.net/forums/sho...ll#post3444087

ça peut déjà t'éclairer un peu.

[Delbeke]

A essayer

Copie le code suivant dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As _
    Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As _
    Long, lpExitCode As Long) As Long
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
 
 
Public Function LancePgm(PgmName As String) As Long
    Dim hTask As Long
    Dim hProcess As Long
    Dim ExitCode As Long
    hTask = Shell(PgmName, vbNormalFocus)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hTask)
    Do
        Sleep 100
        DoEvents
        GetExitCodeProcess hProcess, ExitCode
    Loop While ExitCode = STILL_ACTIVE  'on attend que l'appi est active
    LancePgm = ExitCode
End Function

Vois le fonctionnement de shell pour la syntaxe de PgmName

[vonemya]

Est ce que tu peux m'expliquer ton code STP? Je suis débutant en VB et il y a des trucs qui m'échappent...

Sinon moi j'ai pensé à ceci

Code :

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

1
2
3
 
 
Shell "cmd.exe" & "/c MonExe.exe arg1 arg2 > c:FichierResultat.txt"

Cela me permet d'obtenir mon résultat (un entier) écrit dans le fichier MonResultat.txt. Y'a-t-il un moyen de le récupérer dans une variable locale de la fonction VB qui lance cette commande? un truc du genre:

Code :

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

1
2
3
 
// c'est une syntaxe algorithmique, je ne sais pas si c'est faisable ou pas en VB
MaVariable Locale = Shell "cmd.exe" & "/c MonExe.exe arg1 arg2 "

Merci

[Delbeke]

Si tu es débutant, sache que ce que tu demandes est du niveau expert. En effet, s'il est assez facile de lancer un exécutable, recupérer l' ERRELEVEL ne peut se faire que via les api de windows.
La fonction shell renvoie un identificateur du programme lancé, ce qui ne te sert à rien.

Avec le module que j'ai donné

Code :

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

MaVariable Locale = LancePgm("MonExe.exe arg1 arg2 ")