Bonjour,

Je vous propose quelques lignes de code pour que vos applications puissent jouer un son (fichier .wav).

Pour essayer, il faut :
  • déposer un bouton sur un formulaire;
  • créer un module.

Tout d'abord, mettre le code suivant dans le module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
 
'Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 'Fonction (32 bits)pour jouer un son wav
Declare PtrSafe Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 'Fonction (64 bits)pour jouer un son wav
 
Public Sub JouerSon(ByVal Fichier As String)
    mciExecute ("play " & Fichier) 'Jouer le son
End Sub
 
Public Sub ArreterSon(ByVal Fichier As String)
    mciExecute ("stop " & Fichier) 'Arrêter le son
End Sub
Puis mettre au niveau du clic du bouton :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Btn1_Click()
  JouerSon ("Chemin du fichier\Son.wav")
End Sub
Si vous essayez avec un son qui dure suffisamment longtemps, pour pouvoir l'arrêter avant la fin, il faut mettre un deuxième bouton avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Btn2_Click()
  ArreterSon ("Chemin du fichier\Son.wav")
End Sub
Attention, le nom du fichier doit être d'un seul tenant. Par exemple : Machine_a_ecrire.wav et non Machine a ecrire.wav. Sinon vous aurez un message d'erreur de ce type :

Nom : ErreurMCI.jpg
Affichages : 86
Taille : 12,4 Ko

N.B. Pour essayer, il est facile de télécharger sur internet des sons wav gratuits libres de droits.

Merci nirG95. Voir sa réponse dans la discussion : https://www.developpez.net/forums/d8...ouer-wav-timer