Alerte musicale

[Eric]

Bonjour,
Comment créer une alerte musicale quand une cellule a une certaine valeur alpha ou numérique?
D'avance merci pour votre aide
Eric

 

[michel]

Bonjour Eric

Tu trouveras ci joint deux exemples d'alertes sonores , qui se déclenchent lorsque la valeur de la cellule A1 est supérieure à 10

Dans le premier exemple , Le fichier sonore (wav) doit impérativement se trouver dans le meme répertoire que le fichier excel

J'ai ajouté un deuxieme exemple , ( juste pour information car cela ne correspond pas à ta demande ) c'est une alerte sonore , qui ne nécéssite pas de fichier joint , mais qui ne sera pas musical .
, Le signal sonore est émis par l'ordinateur (instruction Beep ) . L'aide vba sur le sujet précise :
La fréquence et la durée du signal sonore dépendent des caractéristiques du matériel et du logiciel système utilisés, lesquelles peuvent varier d'un ordinateur à l'autre.


Bonne soirée
Michel

 

[Eric]

Bonjour Michel

Merci bien pour ton aide,
Est-il possible d'avoir cette alerte sonore automatique ( sans avoir à appuyer sur un bouton )?
Est-il possible de choisir une musique enregistrée dans un fichier son ?

Eric

 

[michel]

bonjour eric

j'ai modifié le fichier suite à te demande pour avoir l'alerte sonore par une procedure evenementielle : ( lors de la saisie d'une valeur en A1)

par contre , peux tu repréciser la deuxieme partie de ta question , car je ne comprends pas ce que tu recherches

bonne journée
michel

 

[Eric]

C'est trop sympa Michel
Concernant la musique, si je souhaite du Wagner sur ce "déclenchement
évènementiel"... comment je fais?

 

[michel]

Bonsoir eric

Je te proposes deux solutions

1ere possibilité
tu recopies ton fichier musical dans le même répertoire que ton fichier excel
et tu remplaces "SONORE" par le nom du fichier
PlaySound ThisWorkbook.Path & "\Browm sugar" , 0, 1

2eme possibilité
tu précises dans la macro , l'emplacement exact du fichier musical , sur ton disque dur
PlaySound "C:\Mes Documents\Sympathy for the Devil" , 0, 1


Bonne soirée
michel

 

[Eric]

Merci beaucoup pour ton aide Michel

Je dois être nul, mais sur Ton 2è fichier je ne trouve pas où tu as programmé l'alerte sur la cellule A1 :


Option Explicit

Declare Function PlaySound Lib "Winmm" _
(ByVal pszsound As String, ByVal hmod As Long, _
ByVal fdwsound As Long) _
As Long

Sub son()

End Sub

 

[michel]

bonsoir eric

il faut que tu cliques sur Feuil1(Feuil1) dans le projet VBA ( il s'agit d'une procédure évenementielle worksheet )

bonne soirée
Michel