bonjour flamel , le forum une methode parmi d autres ................ Option Explicit
Declare Function sndPlaySound32 Lib 'winmm.dll' Alias 'sndPlaySoundA' _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long
Sub Musique()
If Application.CanPlaySounds Then
Call sndPlaySound32('d:\\excel\\goodbye.wav', 0)
Call sndPlaySound32('d:\\excel\\buddyin.wav', 0)
Call sndPlaySound32('d:\\excel\\buddyout.wav', 0)
End If
End Sub ' attention dans l ex les fichiers son se trouve d:\\excel salutations