[Excel] lancer video a partir de listbox

Résolu/Fermé

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 6 janv. 2012 à 19:49
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 7 janv. 2012 à 11:25

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

A voir également:

[Excel] lancer video a partir de listbox
Liste déroulante excel - Guide
Recuperer video youtube - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Créer une vidéo à partir de photos gratuitement - Guide

3 réponses

Réponse 1 / 3

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
7 janv. 2012 à 07:58

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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 janv. 2012 à 10:41

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/

Réponse 3 / 3

ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
7 janv. 2012 à 11:25

Encore une fois merci Michel_M :)

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters