Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As _
Long) As Long
sub defin()
m8(1, 0) = "joues.wav": m8(1, 1) = "gagnes.wav"
m8(2, 0) = "jouev.wav": m8(2, 1) = "gagnev.wav"
End Sub
Sub son1()
' sons ou voix
m7 = ThisWorkbook.Path + "\" + m8(f4, f8)
x1 = PlaySound(m7, 0, 2)
End Sub