FAQ
Comment faire...
A placer dans un module général
'Attendre la fin
Public Const SND_SYNC = &H0
'Rend la main immédiatement
Public Const SND_ASYNC = &H1
'Eviter le beep en cas d'erreur
Public Const SND_NODEFAULT = &H2
'Lire en boucle : SND_ASYNC + SND_LOOP
Public Const SND_LOOP = &H8
'Empêcher l'interruption de la lecture
Public Const SND_NOSTOP = &H10
'Arrêt : sndPlaySound vbNullString, SND_PURGE
Public Const SND_PURGE = &H40
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Syntaxe : Call sndPlaySound ("C:cheminfichier.wav", SND_ASYNC + SND_NODEFAULT)