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()
Dim Video$, Chemin$
Video = "Test.wmv": Chemin = "C:\Users\STAPLE\Videos\"
RetVal = ShellExecute(0&, "open", Video, vbNullString, Chemin, 1&)
End Sub