Ecouter des .wma

[ratou34]

Bonjour le forum,

J'ai un userform sur lequel se trouve un bouton.
Je voudrais ecouter un fichier wave lorsque je clique sur le bouton de mon userform.
J'ai essayé le code suivant mais rien ne se passe (pas d'erreur, ni de plantage) :

Declare Function PlaySound Lib "Winmm" _
(ByVal pszSound As String, ByVal hmod As Long, ByVal fdwSound As Long) As Long

Sub Test()
PlaySound "C:\Music\test01.wma", 0, 0
End Sub

J'ai ce probleme sur Excel 2003 et 2007.
Merci d'avance pour vos reponses

 

[James007]

Re : Ecouter des .wma

Bonjour,

Tu peux essayer le code suivant avec Windows Media Player :

Sub jouer()
     son = "C:\Program Files\Windows Media" & _ 
     "Player\wmplayer.exe C:\Music\test01.wma"
     MyAppID = Shell(on, 0)
End Sub

A +

 

[ratou34]

Re : Ecouter des .wma

Salut James007,
Je viens de tester et en effet cela fonctionne.
Merci de ton aide
@+