Discussion :

[skysool]

Bonsoir,

je bloque une nouvelle fois sur un bout de code
Je cherche le moyen de lancer un programme .exe en parrallele de mon programme codé en VB6.

Je fais donc appel à cette fonction

Code :

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

1
2
3
 
Call Shell(App.Path & "\GifMaker.exe", vbNormalFocus) 'lance le fichier exe
Call CloseProg 'permet de fermer mon programme VB6

Lorsque je test sans compilation cela fonctionne mais aprés compilation j'ai un message d'erreur...
CloseProg fonctionne quant à lui sans Call Shell...
Les deux ne semblent pas compatibles.

Quelqu'un aurait une idée ?
Vous en remerciant par avance

Meilleurs voeux à tous

[ProgElecT]

Salut

A essayer, un Doevents entre les 2 call.

Code :

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

1
2
3
Call Shell(App.Path & "\GifMaker.exe", vbNormalFocus) 'lance le fichier exe
Doevents
Call CloseProg 'permet de fermer mon programme VB6

Sinon il serait intéressent que tu nous mettes la procédure CloseProg ainsi que ou ces 2 lignes sont déclenchées, quelle Sub ?

[skysool]

Problème résolu merci