XL 2013 Problème DoEvents en VBA

jpmetge

XLDnaute Nouveau
Bonjour,
Je voudrais lancer une deuxième procédure après qu'une première soit finie.
Voici mon code (qui ne fonctionne pas):

Sub Boucle()
'
' Boucle Macro
'

'
Application.DisplayAlerts = False
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Liste").Select

DoEvents

Video = "Armoire.mp4"
chemin = "C:\Users\jean-paul\Documents\ActivCoarraze\Tutoriels vidéo\"
Call Lancer_VIDEO(Video, chemin)
'Application.Wait Time + TimeSerial(0, 0, 74)

DoEvents

Video = "L'arborescence documentaire.mp4"
chemin = "C:\Users\jean-paul\Documents\ActivCoarraze\Tutoriels vidéo\"
Call Lancer_VIDEO(Video, chemin)

Application.DisplayAlerts = True
End Sub
 

jpmetge

XLDnaute Nouveau
Je précise que lors de l'exécution de ma macro, la première procédure commence à s'exécuter, puis 2 secondes après c'est la seconde qui démarre.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Je ne vois pas le rapport avec DoEvents, mais essayez en remplaçant le second Call Lancer_VIDEO(Video, chemin) par :
VB:
Application.OnTime Now + TimeSerial(0, 0, 74), "'Lancer_VIDEO """ & Replace(Video, "'", "''") & """, """ & chemin & """'"
 

patricktoulon

XLDnaute Barbatruc
bonjour
pour lancer une 2D vidéo après la première faudrait il encore que VBA connaisse le duration de la première ;)
comme je ne vois pas le code de Lancer_VIDEO je ne peux t'en dire plus
 

jpmetge

XLDnaute Nouveau
Bonjour,

Je vous remercie tous 2 pour vos réponses, mais je cherche exactement pourquoi le DOEvents ne fonctionne pas.
Le "Wait time" dans ma procédure est en commentaire.
Si quelqu'un connait bien le DOEvents, je suis preneur.
PS : voici le code appelé :

Private Declare Function ShellExecute _
Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Lancer_VIDEO(ByVal Video As String, ByVal chemin As String)

'Dim Video$, chemin$
'Video = "Armoire.mp4": Chemin = "C:\Users\jean-paul\Documents\ActivCoarraze\Tutoriels vidéo\"

RetVal = ShellExecute(0&, "open", Video, vbNullString, chemin, 1&)
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil,

jpmetge
Il eut été apprécié que tu te manifestes dans ton premier fil, pour ne passer laisser nos dernières questions en suspens.
(C'est plus ou moins l'usage sur le forum, même si ce n'est pas explicite dans la charte du forum)

@patricktoulon
Le code Lancer_Video était dans le fil que je cite
(d'ailleurs c'est moi qui le posta là-bas ;) )
Fil que le demandeur n'a pas jugé utile de citer...

[aparté du dimanche midi]
Je ne vois pas ce que vient faire Excel dans l'histoire.
Utiliser une playlist suffirait, non?
Au pire on pourrait utiliser un script VBS.
Si on pouvait connaitre le contexte qui oblige à utiliser Excel pour lancer des videos, on y verrait peut-être plus clair, non ?
[/aparté]
 
Dernière édition:

jpmetge

XLDnaute Nouveau
Si quelqu'un de sérieux peut me répondre sans commentaires ineptes, tant mieux, sinon j'essaierai sur un autre forum.
Bon dimanche.
 

Staple1600

XLDnaute Barbatruc
Re,

jpmetge
Susceptible?
Pourtant Roblochon et moi nous avons juste posé des questions* dans ton autre fil?
(celui que je cite, *: messages #16 et #17)
Auxquelles tu n'as pas répondu
Décidément , l'Xldnaute Nouveau, c'est plus ce que c'était :rolleyes:

Apparemment, tu as trouvé ma macro Lancer_Video suffisamment sérieuse pour l'utiliser...

PS: Que tu surfes sur ce forum ou sur un autre, who cares ?
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas