Bonjour Philippe et G'claire
Ci dessous macro trouvée dans les archives MPFE pour incorporer des sons Wave.
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
' archives mpfe
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "TONTITRE.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
Le "wavfile" est ici dans le m^dossier...
Michel