Bonjour,

J'ai deux programmes A et B qui tournent en parallèle.
-------------------------------------------------------------------------
Avec un Shell le programme A lance le programme B
Le programme B réalise un traitements Itératifs dans un Timer.

Je cherche comment redonner la main au programme A de telle sorte qu'il continue à exécuter les instructions qui sont situées après le Shell.

Merci pour votre support.

si tu utilise l'aide de VB sur la commande shell on te dis que shell execute ton prog de maniere asynchrone, c'est a dire que des que l'exe B est lancé, le programme A continue, je ne comprend donc pas ta question ou celle ci est incomplete.

J'ai précisé dans ma question que le programme appelée exécutait un traitement itératif avec un Timer.

J'ai fais des essais avec la Calculette de Windows. C'est Ok.
Avec mon programme qui boucle, je ne reviens pas à l'instruction qui suit le Shell. Il garde le focus.

Il y a peut-etre une façon de coder le Shell ?..

Si tu as une idée

Merci.

essaye par les API

exemple:


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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "toto.exe", vbNullString, "C:\toto", SW_SHOWNORMAL
End Sub

Je me suis complètement trompé.

Je viens de m'apercevoir qu'entre le Shell et le retour à l'instruction qui suit il faut attendre plus de 10 secondes. Bien entendu, je pensais que ça bouclais et ........

La cause de mes ennuis vient donc du programme B.

La solution à mon problème avance. J'ai mis un DoEvents en fin de boucle du programme B mais rien de changé.

Peut être à bientôt si vous avez de nouvelles suggestions à me faire.

Merci pour votre support.

Voic comment je vois le problème :

Démarrage de A
Éxécution de A
...
...
Démarrage de B par A
Éxécution de B
...
...
Fermeture de B
Suite de l'éxécution de A
Fermeture de A

Si c'est ça le problème, c'est règlé d'avance. Tout ce qu'il te faut c'est utiliser l'api CreateProcess pour CRÉER LE PROCESS et WaitForObject pour FAIRE ATTENDRE LA FIN DU PROCESS et tout devrait bien marcher. Il y a plein de sources là dessu.

VIVE LE QUÉBEC!
Essayez ça

Dim l As Long: Do Until l = -1: l = l + 1: Loop

p.s.Si vous l'avez essayé, vous êtes vraiment stupide

Non, ce n'est pas cela.

Je souhaite revenir immédiatement après l'instruction qui suit
le shell (Ce qui se fait d'ailleurs tout naturellement)

Mais je me suis trompé comme je le dis dans le message qui précède le tien.

Merci pour ton support. C'est Sympa.