creer macro pour emission son

[mimi1958]

bonjour a tous et toutes
quelqu un pourrait me dire comment creer une macro qui fera jouer un son ( son reveil de mon ordinateur )
le code que j'ai mis est celui ci :

Sub JouerSon()
Application.ExecuteExcel4Macro
"sound.play(,""C:\Users\michel\Desktop\howell\son\10830.wav"")"
End Sub

ca ne fonctionne pas . merci pour votre aide

 

[youky(BJ)]

Hello,
En tête du module la déclaration

Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, _
ByVal fdwsound As Long) As Long

'et ensuite la macro

Sub jouerson()
PlaySound "C:\Users\michel\Desktop\howell\son\10830.wav", 0, 1
End Sub

Bruno

 

[mimi1958]

merci ca marche