Discussion :

[Philbec44]

Bonjour,
J'essaie de visualiser un fichier vidéo avec VLC dans un UserForm. Après avoir mis un contrôle VLCPlugin21 dans mon UserForm, j'ai écrit le code suivant :

With VLCPlugin21
.Visible = True
.Width = Larg_Vidéo
.Height = Haut_Vidéo

If Nom_Répertoire_Initial = "" Then
Fichier1 = Nom_Répertoire_Vidéo & "" & Nom_Fichier_Vidéo
Else
Fichier1 = Nom_Répertoire_Vidéo & "" & Nom_Répertoire_Initial & "" & Nom_Fichier_Vidéo
End If

.Playlist.Add (Fichier1)
.Playlist.Play

End With

Le code se déroule sans erreur, le nom du fichier vidéo est correct mais le fichier vidéo n'est pas joué. Comment faire pour le lancer avec la bouton "play" de la fenêtre VLC ?

Merci d'avance pour votre aide
Bonne journée
Philbec44

[Philbec44]

Bonjour,
J'essaie de visualiser un fichier vidéo avec VLC dans un UserForm. Après avoir mis un contrôle VLCPlugin21 dans mon UserForm, j'ai écrit le code suivant :

With VLCPlugin21
.Visible = True
.Width = Larg_Vidéo
.Height = Haut_Vidéo

If Nom_Répertoire_Initial = "" Then
Fichier1 = Nom_Répertoire_Vidéo & "" & Nom_Fichier_Vidéo
Else
Fichier1 = Nom_Répertoire_Vidéo & "" & Nom_Répertoire_Initial & "" & Nom_Fichier_Vidéo
End If

.Playlist.Add (Fichier1)
.Playlist.Play

End With

Le code se déroule sans erreur, le nom du fichier vidéo est correct mais le fichier vidéo n'est pas joué. Comment faire pour le lancer avec la bouton "play" de la fenêtre VLC ?

Merci d'avance pour votre aide
Bonne journée
Philbec44

J'ai trouvé le problème. Il faut ajouter "file:///" & devant Fichier1
J'ai donc modifié la ligne comme suit
.Playlist.Add ("file:///" & Fichier1)