Probleme pour déclencher un son wav
Bonjour
comment declencher un son wav avec un resultat
=si(a1=1 emettre mon son ?????
merci d'avance
Bonjour
Cette macro XL4 devrait inspirer les spécialistes VBA car, à partir de VBA on peut activer la Macro XL4 qui contient des instructions qui n'existent plus en VBA, mais qui sont toujours lues par excel (2003 pour moi)
https://www.excel-pratique.com/~files/doc/Musique.xls
La cellule A1 contient la Formule = =ALEA.ENTRE.BORNES(1;5) qui renvoient un nombre entre 1 et 5.
La Macro donne pour instruction de Recalculer (à chaque Click du Bouton Macro) et lorsque le total est 1, d'incorporer le commentaire Audio dans cette cellule et de jouer le morceau wmpaud.wav qui se trouve dans D:\Mes documents\Wav.
Essayez avec un fichier Wav en indiquant son chemin d'accès dans la Macro.
Merci à celui qui mettra en Forme la Macro VBA.(Question en suspens depuis 1 an)
Cordialement
Bonjour
A partir d'une cellule je ne sais pas trop, (manque de réflexion je suis pressé) Mais avec VBA j'ai ceci
Créer un module y copier le code suivant
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub Alarme()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrSituation
WAVFile = ThisWorkbook.Path & "\guitar.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
ErrSituation:
'Alarm = False
End SubDans la feuille concernée écrire le code suivant
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("a1").Value > 10 Then
Alarme
End If
End SubBien entendu il faut avoir le fichier .wav dans le même répertoire que le fichier Excel (dans notre cas tout au moins !)
Vous avez ci-joint un exemple
https://www.excel-pratique.com/~files/doc/Exemple_sonore_en_vba.zip
Pardon et bomjour Amadéus , Nous nous sommes croisé
Cordialement
Alain