Discussion :

[coklin]

Bonjour tout le monde,


J'aurais besoin de savoir comment utiliser les sons de la librairie windows media dans un code VBA. J'ai trouvé un forum où ils en parlent mais je ne parviens pas à comprendre comment utiliser le code pour le son dans mon programme.

Encore mieux, ce serait d'avoir le choix du son dans une liste. Au passage, j'en ai besoin pour créer des alertes.


Quelqu'un pourrait-il m'aider svp?


Merci d'avance,


Coklin

[laetitia]

bonjour coklin le forum 2 exemples a adapter

Code :

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

1
2
3
4
5
6
Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub us1()
Dim retour As Long
retour = Beep(440, 500)
End Sub

Code :

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

1
2
3
4
5
6
7
Sub Us()
  Dim Cnt As Long
  For Cnt = 0 To 100 Step 10
  Beep Cnt, 50
  DoEvents
  Next Cnt
End Sub

ps: une autre methode il faut que tu trouves des fichiers sons sur internet extension .wav attention chemin complet
ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long
Sub Musique()
If Application.CanPlaySounds Then
Call sndPlaySound32("e:\excel\divers\goodbye.wav", 0)
Call sndPlaySound32("e:\excel\divers\buddyin.wav", 0)
Call sndPlaySound32("e:\excel\divers\buddyout.wav", 0)
End If
End Sub

[coklin]

merci, j'ai réussi à trouver grâce à toi!


Bonne aprem!