[Excel] lancer video a partir de listbox

Résolu
ced3c -  
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

  1. ced3c Auteur
    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
    1. michel_m Contributeur
      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
      1. ced3c Auteur
        Encore une fois merci Michel_M :)
        0