Aide pour attendre la fin d'une instruction avant de passer a la suivante

Question

Bonjour, 

Je commence tout juste dans VBA et j'ai besoin d'une petite aide: 

Je lance une video a partir et je veux l'eliminer qd cette video est finie.

Sachant que je la lance avec une macro, je ne connais pas les return de ma fonction, ni la fonction elle meme a part: 

    ActiveSheet.OLEObjects.Add(Filename:="C:\Streams\seq1_4_8.avi", Link:=False _

                , DisplayAsIcon:=False).Select

        Selection.Verb Verb:=xlPrimary



Je voudrais donc savoir comment faire pour attendre la fin de l'execution, supprimer la video (Selection.Delete) 

Merci de votre aide

cs_Esquisse · Answer

si c'est toujours la m&#234;me vid&#233;o fait toi un timer avec la dur&#233;e de la vid&#233;o et d&#232;s que c termin&#233; tu lance ton delete.

m_heff2002 · Answer

le timer je le fais comment stp?

j'ai fait temp= Timer

temp1 = temp + duree_video

Mais je n'arrive pas a trouver la bonne condition pour que cela marche :(

any more help plz?

cs_Esquisse · Answer

Dim Debut As Double

Debut = Timer + 10 ' 10 correpsond &#224; la dur&#233;e en secondes

Do While Debut > Timer
    DoEvents 'ne fait rien et laisse windows travailler
Loop

m_heff2002 · Answer

Merci pour ton aide Esquisse,

J'ai verifie cela mais comme c'est une boucle, il me sort des resultats un peu bizarres,

Par contre j'ai essay&#233; cela et ca a march&#233;:



Public Sub Fait_une_pause(nb As Integer)

Dim s As Integer



s = ((Second(Now) + nb) Mod (60))



Do Until s = Second(Now)

Loop



End Sub

Aide pour attendre la fin d'une instruction avant de passer a la suivante

4 réponses

Discussions similaires