XL 2013 Problème DoEvents en VBA

[jpmetge]

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]

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]

Bonjour.
Je ne vois pas le rapport avec DoEvents, mais essayez en remplaçant le second Call Lancer_VIDEO(Video, chemin) par :

Application.OnTime Now + TimeSerial(0, 0, 74), "'Lancer_VIDEO """ & Replace(Video, "'", "''") & """, """ & chemin & """'"

 

[patricktoulon]

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]

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]

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.

XL 2010 - Annulation message d'ouverture de fichier dans Excel

J'ai créé une macro qui lance doit lancer en boucle des vidéos grâce à un lien hypertexte. Le problème est qu'à chaque tentative d'ouverture du fichier j'ai le message : je ne souhaite pas modifier la base de registre, existe t il une autre solution ? Merci pour vos réponses

www.excel-downloads.com

(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é]

 

[jpmetge]

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]

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 🙄

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 ?