Insérer un son wav en VBA ?

[Chevreau]

Bonjour à toutes et à tous,

Est ce que quelqu'un aurait une idée pour insérer un son de type wav (lorsque, par exemple, l'utilisateur click sur le bon bouton d'une msgbox) ?

....

N'étant pas le seul à avoir déjà posé cette question, j'ai donc déjà copier / coller d'autres petits programmes prévus à cet effet.....mais le message suivant revient très (trop ) souvent : sub ou fonction non définie....

J'ai notemment essayé avec cette version :

Sub Sound()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

WAVFile = "C:\Documents and Settings\Nico\Mes documents\Jeu_Animaux\Applaudissements.wav" 'à adapter
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Merci d'avance pour votre aide...

 

[G'Claire]

Chevreau, le forum

Voici un code qu m'a été donné par un foromeur que je remercie:

Public MusicWAV 'En tête de ton UserForm


MusicWAV = (ThisWorkbook.Path & "\" & "Nom du fichier.wav") 'Destination du fichier

PlayWave

Et dans un module :

Option Explicit
Option Private Module

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
Public MusicWAV
' pour le son
Sub PlayWAV()
Call PlaySound32(MusicWAV, 0&, SND_ASYNC Or SND_FILENAME)
End Sub


J'espère que toi aussi cela pourra t'aider, G'Claire

 

[Myta]

Salut Chevreau et G'Claire

Ou tout simplement dans un module

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub Play()
Call sndPlaySound32("C:\Mes Documents\Sonnerie.wav", 0)
End Sub

Mytå

 

[pl]

Super cette petite fonction,

Marche-t-elle aussi avec les anciennes versions d'excel(ex :97).

Merci