Jouer un son sous VB

Tu n'es pas le seul sur CCM. Si quelqu'un se pose la même question, il connaîtra ma solution même si le message date de 2 ans. Dans ces conditions, CCM aurait dû bloquer ce message et même tous les plus vieux par la même occasion.

Mieux vaut tard que jamais !

A lire ta phrase, c'est comme si je devais être à l'affut des questions posées ici et d'apporter obligatoirement une réponse.

Bravo pour la réactivité (2 ans)!!!
Que serait CCM sans tes interventions ?

Bonjour,

Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub faire_bip()
Beep 500, 400
End Sub

ici: 500 est la note, 400 la durée

Michel

re,

Suffit de demander!...

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 & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If

End Sub

et le wav bruit des pièces (si tu en as d'autres je suis preneur, d'avance merci):

https://www.cjoint.com/?hskHQC13BX

En fait c'est juste le temps qu'il a mis pour apprendre vb.net ^^

Bonjour

J ai juste oublier un détail, le son en question, c'est un wav.

En fait c'est une caisse enregistreuse que j ai fait et je voudrais jouer le bruit du tirroir caisse quand j encaisse.

Merci pour la réponse

A+

Bonjour

Merci pour la réponse.
Ca vient de me servir également.

Maxfacel