Utilisation de la commande Shell

Version imprimable

04/04/2011, 08h42
yassinefeki

Bonjour,

Je suis entrain de programmer sur Vb excel un algorithme de résolution d'un problème de recherche opérationnelle. Alors, j'ai besoin de résoudre le problème à l'aide du programme OPL studio. Alors, dans l'algorithme que j'ai crée sur VB, j'ai fait un appel à exécuter le programme OPL studio à l'aide de cette commande :

Code:

Call shell ( "C:\ILOG\OPL63\bin\x64_win64\oplrun.exe -p D:\Temp\SimRef480", vbNormalFocus )

Le problème c'est que lorsqu'on exécute l'OPL, le programme de résolution sur OPL prend un 30 seconde puis donne une solution et cette solution représente une condition d'arrêt dans la boucle While. Alors je veux connaître si excel attends jusqu'à OPL donne la solution ou non ?

J'ai consulté l'aide sur excel et j'ai trouvé cette remarque :

Par défaut, la fonction Shell exécute les autres programmes de manière asynchrone. Cela signifie qu'un programme lancé avec Shell peut ne pas s'exécuter entièrement avant que les instructions suivant la fonction Shell ne soient exécutées.

Est ce qu'il y'a une solution pour éviter ça ?

Merci.

bonjour,
il y a plusieurs méthodes, en voici une :

Copier ceci dans un module :

Code:

1
2
3
4
5
6
7
8
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 PROCESS_QUERY_INFORMATION As Long = &H400
Private Const STILL_ACTIVE As Long = &H103

Puis l'utilisation dans la procédure ou la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim lIDApp As Long
Dim lPtrProcess As Long
Dim lExitCode As Long
Dim lResult As Long
 
  ' Exécution de l'application externe.
  lIDApp = shell ( "C:\ILOG\OPL63\bin\x64_win64\oplrun.exe -p D:\Temp\SimRef480", vbNormalFocus )
 
  ' Récupère le Handle du processus de l'application externe.
  lPtrProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, lIDApp)
 
  ' Attend la fin de l'exécution du processus.
  Do
    lResult = GetExitCodeProcess(lPtrProcess , lExitCode)
    DoEvents
  Loop While lExitCode = STILL_ACTIVE

05/04/2011, 23h59
yassinefeki

Merci beaucoup mon ami, mais il reste un petit problème. Lorsque j'exécute la macro, OPL studio ne renvoie pas les valeurs dans Excel et toujours dans la fenêtre de dos il s'affiche invalid. J'ai pas compris pourquoi mais je veux connaitre est ce que la commande shell fait exécuter OPL seulement ou bien il va exécuter le fichier ".oplproject" par OPL. En effet, mon objectif est d'exécuter le fichier ".oplproject" sur OPL et normalement lorsque OPL résoudre le problème développé dans ce fichier, il renvoie dans une cellule de fichier Excel 1 si le problème a été résolu et 0 sinon.
Alors qu'est ce que je dois faire ?
06/04/2011, 17h24
neupont

Oui malheureusement ce n'est pas si simple de récupérer la valeur d'une appli exécutée via un shell.

Déjà il faut arriver à avoir un résultat "à la main" sous DOS.
Ouvre une console DOS et tape :

Code:

C:\ILOG\OPL63\bin\x64_win64\oplrun.exe -p D:\Temp\SimRef480 > C:\resultat.txt

Ensuite ouvre ce fichier C:\resultat.txt et regarde s'il contient la valeur que tu voudrais voir dans Excel.
C'est là une commande DOS, qu'il faut éventuellement modifier pour obtenir le résultat. Je ne peux guère t'aider pour ça.
Si tu n'arrives pas à avoir cette valeur dans ce fichier, ce sera impossible de l'avoir dans Excel.
06/04/2011, 17h37
yassinefeki

Ok. Merci beaucoup pour ton aide mon ami, alors je dois changer et travailler sur vb.net mieux que VBA excel. J'ai pas de choix !!