jouer un fichier wav

**danest** · 14/07/2008, 18h01

Bonjour,

Lors du déroulement d'un VBA, j'aimerais jouer le son :
"program files\openoffice.org2.2\share\gallery\sounds\untie.org"

J'ai bien vu cette question posée, mais les réponses tellement compliquées et incompréhensible pour le débutant que je suis.
Je souhaite simplement le moyen de lancer ce fichier audio. Pour l'instant, c'est une série de bip qui m'alerte, mais ça ne me satisfait pas.

Voilà l'état actuel.

Code :

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

1
2
3
4
5
If ActiveCell < 0.1 Then
For q = 1 To 10
     Beep    ' Émet une note.
     Application.Wait (Now + TimeValue("0:0:1"))
 Next q

Ca marche bien, mais je souhaiterais un son plus "top"

Merci à tous, et "special thank" à ceux qui auront une idée pour me dépanner.

**edelweisseric** · 14/07/2008, 19h27

Bonjour à tous
Bonjour

Si j'ai bien compris, essaie ce code :

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
21
22
23
'---- Pour son WAV
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
                                    ByVal lpszSoundName As String, _
                                    ByVal uFlags As Long) As Long
Private Declare Function sndPlaySoundmem Lib "winmm.dll" Alias "PlaySoundA" ( _
                                    ByVal lpszName As Long, _
                                    ByVal hModule As Long, _
                                    ByVal dwFlags As Long) As Long
' Joue le fichier de manière synchrone (attend la fin de la lecture pour rendre la main).
Private Const SND_SYNC = &H0
' Joue le fichier de manière asynchrone (rend la main immédiatement).
Private Const SND_ASYNC = &H1
' N'attend pas si le driver son est occupé.
Private Const SND_NOWAIT = &H2000
 
Public Sub JouerFichierWav(stFichier As String)
    ' Joue le fichier son envoyé en paramêtre si le driver est disponible.
    Call sndPlaySound(stFichier, SND_ASYNC Or SND_NOWAIT)
End Sub
 
Sub lance_son()
Call JouerFichierWav("C:\untie.wav")
End Sub

Chez moi, cela fonctionne en déplaçant le fichier "untie.wav" (et non .org) sous C:\ .

Merci à Jack qui en serait l'auteur

Eric

**danest** · 15/07/2008, 01h20

Bonjour Eric et merci pour ta contribution.

Cependant, ça parait encore bien compliqué pour jouer un fichier !

Je suis rapidement largué !

Dès la première ligne, je ne comprends pas ce que l'on fait.

quant à Lib "winmm.dll" Alias "sndPlaySoundA" .... Alors là JE FLYE !!!!!!!!!!!!!!!!!!

N'existe t-il pas une fonction dans VBA qui lance un fichier son (wav) comme pour "Beep" ?

Merci tout de même pour la réponse, je vais essayer de l'intégrer dans mon programme.