[Excel] lancer video a partir de listbox Résolu

Question

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

Configuration: Windows 7 / Safari 535.7

ced3c · Answer

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

michel_m · Answer

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/

ced3c · Answer

Encore une fois merci Michel_M :)

[Excel] lancer video a partir de listbox

3 réponses

Discussions similaires

Newsletters