Chris57
XLDnaute Occasionnel
Bonjour à tous,
pour lire des mp3 à partir de excel j'ai fait ceci :
ça fonctionne à merveille !
Maintenant j'aimerai avoir la possibilité de choisir un autre lecteur :
Private Sub Image21_Click()
myPLAYER = InputBox("Lecteur :", "PLAYER", Sheets("Aide").[H108].value)
Sheets("Lecture").[H108] = myPLAYER
End Sub
J'ai tenté un
mais ça ne marche pas !!
Quelqu'un a une idée ??
pour lire des mp3 à partir de excel j'ai fait ceci :
Code:
' Lecture fichier par double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [B10:B509]) Is Nothing Then
chemin = [D3]
Shell ("C:\Program Files (x86)\_Codecs\Media Player Classic - Home Cinema\mpc-hc64.exe """ & chemin & "\" & Target & "")
End If
End Subça fonctionne à merveille !
Maintenant j'aimerai avoir la possibilité de choisir un autre lecteur :
Private Sub Image21_Click()
myPLAYER = InputBox("Lecteur :", "PLAYER", Sheets("Aide").[H108].value)
Sheets("Lecture").[H108] = myPLAYER
End Sub
J'ai tenté un
Code:
Shell (myPLAYER & chemin & "\" & Target & "")Quelqu'un a une idée ??