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
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