Ca rame !!!

Question

bonjour,

j'ai un petit Pb pour changer. j'ai fait un petit fichier bat pour lancer 3 prog. de conversion de fichier, la 3 eme etape étant la conversion de fic Ps en pdf (Acrobat Distiller). Qd j'execute mon fichier bat en dehors du code, Distiller s'ouvre et fait la conversion en 5 s. Dans le code il lui faut 30 secondes.
Dans mon prog j'ai fait une boucle ds laquelle je teste la presence de mon fichier Pdf. si il n'y est pas j'attend , je reteste ,... j'utilise la fonction sleep pour attendre et j'ai l'impression que ca fait sleeper tout mon Pc :

' On convertie l'image Bmp -> Pdf
r = Shell(repTemp & Bmp2Pdf, vbHide)
Wait = 0
Do
Wait = Wait + 1
' On attend (2<Coeff_Latence<10)
Sleep 100 * Coeff_Latence
' On verifie si le fichier est présent
If Existe_Fic("C:\~Tmp\Im.Pdf") = True Then
Wait = 100
End If
MsgStat Message + " . " + CStr(100 - Wait)
Loop While Wait <> 100

merci pour toutes propositions,Julien

int19h · Answer

Salut

au lieu de le faire 'sleeper', essai de mettre : DoEvents

' On convertie l'image Bmp -> Pdf
r = Shell(repTemp & Bmp2Pdf, vbHide)

a = Timer

Do
   DoEvents
   ' On verifie si le fichier est présent
   If Existe_Fic("C:\~Tmp\Im.Pdf") = True Then exit do
   MsgStat Message + " . " + CStr(Timer-a) + "s"
Loop

' Par exemple

a+

Int19h

Ca rame !!!

1 réponse

Discussions similaires