[Excel] lancer video a partir de listbox

Résolu
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -  
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai lancer une video dans un userform via le control media player et à partir d'une listbox

A savoir

combobox1 = selection du repertoire des videos
listbox1 = affiche les fichiers present dans le repertoire du combobox1
commandbutton1 = Apres selection d'un fichier dans la listbox, lance la video dans Wmp1
Wmp1 = Control media player

le combobox1 et la listbox fonctionne

en gros je souhaiterais quelque chose du genre pour le commandbutton1: 

Private Sub CommandButton1_Click()
WindowsMediaPlayer1.URL = "J:\--- FILM ---\" & Me.ComboBox1.Value & Me.ListBox1.Value
WindowsMediaPlayer1.Controls.Play
End Sub


Comme vous pouvez le voir je ne suis pas très doué en VBA donc je ne sais pas comment récupérer les valeurs du combobox1 et de la listbox1

Pouvez vous m'aider svp ?
Merci d'avance

3 réponses

Réponse 1 / 3
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
j'ai essayé cela sans plus de résultat 

Private Sub CommandButton1_Click()
WindowsMediaPlayer1.URL = "J:\--- FILM ---\" & Me.ComboBox1 & "\" & (ListBox1.List(ListBox1.ListIndex, 1))
WindowsMediaPlayer1.Controls.Play
End Sub


J'ai oublié de préciser que la listbox1 contiens les noms de fichiers avec leur extension
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,
pour le combo OK

pour la listbox 
ListBox1.List(ListBox1.ListIndex)

mais regarde donc ces tutos qui te feront progresser plus efficacement
https://silkyroad.developpez.com/
0
Réponse 3 / 3
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Encore une fois merci Michel_M :)
0