Discussion :

[riesseg]

Le titre est vague, je sais... mais je sais pas comment le synthetiser en qques mots.

Dans mon appli, pour faire une sauvegarde, je doit stopper mon appli.
donc je me retrouve a devoir fermer mon appli... Mais avant, je dois appeller un .exe

Je fais donc:

Code :

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

1
2
3
4
 
Dim Attend As Integer
Attend = Shell(CurDir & "\SauvAuto.exe", vbNormalFocus)
End

Pis dans SauvAuto.exe:

Code :

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

1
2
3
4
5
6
 
'-----ouvre le prog
ShellExecute Me.hWnd, "open", CurDir & "\Liaison3.exe", vbNullString, CurDir & "\", SW_SHOWNORMAL
'-----
 
End

Cependant, je crois qu'en fait l'appli fait:
Liaison3(A)->Sauvegarde
SauvAuto.exe
Liaison3(B).exe
SauvAuto.exe END
Liaison3(A) END

Pourquoi je pense que ca fait ca?
Car Liaison3 utilise mon COM1, et quand le logiciel se relance apres la sauvegarde ( qui marche bien), il me dit que le port COM1 est utilisé :S

Est ce que ma theorie est vraie?
Ou c,est un autre probleme. ?

Pour le resoudre, je fais un DoEvents lors de la Fermeture de Liaison3(A) et le lancement de SauvAuto ?
Ou je fais ca a la goupille, et je desactive le COM 1 ??

[ouskel'n'or]

As-tu essayé avec DoEvents ? Je vois que tu pose la question.
DoEvents paraît tout indiqué :

Arrête momentanément l'exécution afin que le système d'exploitation puisse traiter d'autres événements

A+

[riesseg]

j'ai essayé

Code :

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

1
2
3
Doevents
Attend = Shell(CurDir & "\SauvAuto.exe", vbNormalFocus)
end

Mais ca marche pas...

mais attend...
DoEvents arrete l'appli ?
Donc si je la relance pas dans mon SauvAuto.exe ...

me cours essayer ca... enfin, cour, c'est vite dit, il est deja devant le pc...

[riesseg]

Mouais, ca a l'air de marcher plutot bien ^^

merci petit dodo

[ouskel'n'or]

Faut le mettre après toute commande qui réclame une action au système, sauvegarde, cloture, ouverture de fichier, affichage... tsétesrats

A+

[riesseg]

heu... c'est ce que j'ai fais, je crois...

Code :

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

1
2
3
 
Doevents
Attend = Shell(CurDir & "\SauvAuto.exe", vbNormalFocus)

et dans SaveAuto.exe

Code :

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

1
2
3
4
5
6
 
'-----ouvre le prog
'ShellExecute Me.hWnd, "open", CurDir & "\Liaison3.exe", vbNullString, CurDir & "\", SW_SHOWNORMAL
'-----
 
End

ca pose vraiment pas de pb ^^
c'est cool

[ouskel'n'or]

Si ça marche, tant mieux mais le doevents serait plus à sa place APRÉS le Shell
Mais tu fais comme tu veux

A+

[riesseg]

apres Oo

Attend, ca veut dire qu'en fait, il lance le shell, et juste apres ( sans attendre la reponse du shell), il se met en pause jusqu'a ce que le shell se finisse ??

[ouskel'n'or]

Oui, c'est ce que je veux dire. L'exécution ne s'arrête pas d'elle-même, faut soit un msgbox, soit une tempo, soit, dans le cas qui nous occupe, un DoEvents pour qu'elle "freine"

A+