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
 

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 & """'"
 

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:

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:

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757