Ouverture d'un film a l'aide d'un UserForm

[maval]

Bonjour,

J'ai un Userform qui a était réaliser par Boisgontier que je salut et remercie au passage qui fonctionne très bien j'aimerai lui apporter une modification.
Sur l'UserForm j'ai ajouté un bouton nommer "Ouvrir le film" j'aimerai si possible ouvrir le film dans media player en fonction de la listbox en cliquant sur le bouton.

Je joint mon fichier qui seras plus explicite.

Merci d'avance

 

[maval]

Re : Ouverture d'un film a l'aide d'un UserForm

Re,

Sur mon Commandboutton1 pour lancer mon film j'ai mis ceci

Private Sub CommandButton1_Click()
Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""I:\Film\Film Pret\La chute de la Maison Blanche 2013.avi""", vbMaximizedFocus

End Sub

Qui lance bien mon film mais j'aimerai qui mette le film en fonction du choix de la listbox


Merci d'avance

 

[ERIC S]

Re : Ouverture d'un film a l'aide d'un UserForm

Bonjour maval

peut-être

Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""I:\Film\Film Pret\" & TextBox1.Value & ".avi""", vbMaximizedFocus

 

[maval]

Re : Ouverture d'un film a l'aide d'un UserForm

Bonjour Eric,

Je te remercie mais le choix et en fonction de la listbox alors j'ai mis ceci

Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" ""I:\Film\Film Pret\" & ListBox1.Value & ".avi""", vbMaximizedFocus

et sa me donne un message d'erreur.

"Le lecteur Windows Média a rencontré un problème lors de la lecture du fichier"

Merci d'avance

 

[ERIC S]

Re : Ouverture d'un film a l'aide d'un UserForm

Re

si tu ajoutes cette ligne avant ton shell tu verras une différence entre le code en dur et la listbox : l'année

MsgBox ("I:\Film\Film Pret\" & ListBox1.Value & ".avi" & "-----" & "I:\Film\Film Pret\La chute de la Maison Blanche 2013.avi")

 

[maval]

Re : Ouverture d'un film a l'aide d'un UserForm

Re,

J'ai trouver mon erreur je te remercie et te souhaite une bonne journée