Démarrer un son de Windows avec une macro.

Le
Guy72
Comment faire démarrer un son quand il y a le mot "Gagné" dans la cellule 05
?
Merci de votre aide.
--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
P.Bastard
Le #17434501
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 ,

patrick.bastardchezdbmail.com

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




Modeste
Le #17434651
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)))
FdeCourt
Le #17434641
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.
Guy72
Le #17434881
Merci de vos réponse, mais je souhaiterais un son qui se trouve dans.
"C:WINDOWSMEDIATADA.WAV"
--
Cordialement
Guy

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



FdeCourt
Le #17435431
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.
Publicité
Poster une réponse
Anonyme