Discussion :

[jack554]

Bonjour,

Argh, ma question est sûrement résolue dans le forum mais je n'arrive pas à trouver.

On connaît le "beep" de VBA qui joue le son système par défaut.

Mais si je veux faire "Ding" ou "Couic" ou "Pinpon", comment faire ? ;-)

Merci d'avance.
Jack.

[rvtoulon]

bonjour
j'ai lu un sujet la dessus il y a quelques temps. En vba il faut passer par les API Windows comme ceci:

Dans éditeur VBA, mettre dans un module standard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
Function SoundMe() As String
    Call PlaySound("c:\windows\media\Speech On.wav", _
      0, SND_ASYNC Or SND_FILENAME) 'indiquer ici le son ? jouer attention .wav
    SoundMe = ""
End Function

puis par exemple dans la cellule B1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A1>300;SoundMe();"")

donc si dans la cellule A1 le chiffre est supérieur à 300, il joue le son…

A voir….

EDIT:
source ici: https://www.extendoffice.com/fr/docu...n-is-true.html

[jack554]

Merci Rvtoulon et Menhir :-)

Rvtoulon j'ai testé ton code, il fonctionne parfaitement. Comme je suis sous Win64 j'ai juste supprimé le test (#if Win64 then) et le code du "else" (que mon Excel 2010 coloriait en rouge ...)

Désolé Menhir, pas trop le temps de tester ta solution :-)

Bonne soirée à tous les deux, je passe en Résolu.

[Menhir]

Mais si je veux faire "Ding" ou "Couic" ou "Pinpon", comment faire ? ;-)

Pilote directement le Media Player, comme ça tu auras tous les sons que tu souhaites, pour peu que tu l'ais en WAV ou en MP3.
A lire : http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Je n'ai jamais testé mais il est peut-être possible de lancer un WAV avec un simple GetObject.