Son wave+bouton

[Philippe]

Bonjour le forum !

Je souhaiteri inclure un son wave lors de l'execution d'une macro
mais je bloque un peu ...

Merci

 

[GClaire]

Philippe, le forum

Essaye ceci,


MusicWAV = (ThisWorkbook.Path & "\" & "Nom du son.wav")


PlayWAV

Le son Wave doit dans ce cas ête obligatoirement mis dans le même dossier que ton classeur.

Salut, G'Claire

 

[Michel_M]

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