Bonjour,

J'ai un "léger" soucis pour ouvrir une vidéo dans VLC

Voila le code que j'utilise, il me permet de detecter le logiciel servant par défaut à ouvrir le fichier vidéo (dans mon cas VLC) et lance le fichier en question

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
     (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
 
Private Sub CommandButton1_Click()
Dim buff As String
Dim fich As String
Dim appli As String
fich = ActivePresentation.Path & "\test.flv"
buff = Space(150)
FindExecutable fich, vbNullString, buff
appli = Left(buff, InStr(buff, Chr(0)) - 1)
Shell (appli & " " & fich)
End Sub
fich vaut
"C:\Documents and Settings\Moi\Bureau\test.flv"
appli
"C:\Program Files\VideoLAN\VLC\vlc.exe"

Le problème est que visiblement VLC n'arrive pas a ouvrir la vidéo s'il y a des espaces dans le chemin d'accès à la vidéo

si je place le tout dans
c:\test
Ca passe nickel