Démarrer un son de Windows avec une macro.

Bonjour, Guy72.

Le fichier trompette.wav étant dans le même répertoire que ton classeur :

Dans un module :

'Permet à Excel de jouer des sons .wav
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags
As Long) _
As Long

Sub Son()
'Message sonore
Call sndPlaySound32(ThisWorkbook.Path & "trompette.wav", 1)
End Sub

Dans ta feuille :

If test Then
Son
End If

A tester.

--
Bien amicordi@lement,

patrick.bastardchezdbmail.com

"Guy72" <guy72@bonjour.tous> a écrit dans le message de
news:uwFGGY5JJHA.3976@TK2MSFTNGP03.phx.gbl...

Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule
05 ?
Merci de votre aide.
--
Cordialement
Guy

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Comment faire démarrer un son quand il y a le mot "Gagné" dans la
cellule 05 ?

http://excelabo.net/moteurs/compteclic.php?nom=multi-sonsi
--
--
@+
;o)))

Salut,

Grace à la macro à la fonction Excel4 :
Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"

Tu mets la macro suivante dans le code de la feuille dans laquelles il
y a ta cellule O5 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(5, 15).Address And Target.Value =
"Gagné" Then
Application.ExecuteExcel4Macro "SOUND.PLAY(,""CHEMINDUSON"")"
End If
End Sub

Cordialement,

F.

Merci de vos réponse, mais je souhaiterais un son qui se trouve dans.
"C:WINDOWSMEDIATADA.WAV"
--
Cordialement
Guy

"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
uwFGGY5JJHA.3976@TK2MSFTNGP03.phx.gbl...

Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule
05 ?
Merci de votre aide.
--
Cordialement
Guy

Salut,
Essayes :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(5, 15).Address _
And Target.Value = "Gagné" Then
Application.ExecuteExcel4Macro _
"SOUND.PLAY ,""C:WINDOWSMEDIATADA.WAV"")"
End If
End Sub

Cordialement,

F.