[VB6]pb de synchronisation

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:

---

1 2 3 4

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

---

Pis dans SauvAuto.exe:

Code:

---

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 ??

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

Citation:

---

Envoyé par L'aide

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

---

A+

j'ai essayé

Code:

---

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...

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

merci petit dodo :)

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

A+

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

Code:

---

1 2 3

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

---

et dans SaveAuto.exe

Code:

---

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 :D

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

A+

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 ??

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" :D

A+