Discussion :

[setepenre]

Bonjour,

J'essaie d'utiliser Windows Media Player à partir d'Excel.
J'ai écris le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub JouerMusique()
 
    Dim Wmp As WindowsMediaPlayer
 
    Wmp.URL "C:\WINNT\Media\Kalimba.mp3"
 
End Sub

Lorsque je lance la routine, le système m'indique une erreur de compilation en pointant ".URL" : "Utilisation incorrecte de la propriété".

Ma version de WMP est la 10.0.
Qu'ai-je oublié ?

[kiki29]

Salut, à lire : http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/ sinon via ShellExecute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub OpenWMP(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Open", sNomFichier, 0&, 0&, SW_SHOWNORMAL)
End Sub
 
Sub Tst()
    OpenWMP "C:\Transfert\essai.mp3"
End Sub