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