Autres (RESOLU)Déclencher un fichier AUDIO sous condition

[chaelie2015]

Bonjour Forum

Est-il possible de déclencher un fichier audio (en MP3) si une cellule contient une certaine valeur?
exemple : fichier audio nommé "Son01.mp3" je souhaite déclencher le fichier si la cellule A1 affiche "accord".

Merci pour votre réponse

 

[xUpsilon]

Bonjour,

Oui.

Bonne journée,

 

[chaelie2015]

Bonjour,

Oui.

Bonne journée,

Bonsoir
les questions auxquelles on répond par OUI ou NON sont rarement intéressantes.
Bonne nuit

 

[TooFatBoy]

Bonjour,

La très utile fonction de recherche du forum m'a retourné un code parfaitement fonctionnel de patricktoulon pour jouer un fichier .MP3 : ici.

 

[Eric C]

Bonsoir le forum
Bonsoir chaelie, xUpsilon

Dans un module :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "accord" Then
    Shell ("C:\Program Files\Windows Media Player\wmplayer.exe """ & "C:\a\Musique\Zaz - La Fée.mp3" & "")
End If
End Sub

Le chemin est bien sur à adapter
Bonne nuit
@+ Eric c

 

[TooFatBoy]

Bonsoir chaelie, xUpsilon

Et moi je sens le pâté bien sûr...

C'est vraiment trop inzuste !

 

[Eric C]

Re le fil,

Oupssssss... pas rafraîchi, bisous mon TooFatBoy. Ainsi cela va mieux ?

 

[TooFatBoy]

bisous mon TooFatBoy.

​

 

[patricktoulon]

bonjour à tous
@TooFatBoy
ca c'est la version exclusivement vba comme ca on a pas besoins du VBS

Dim player As Object
 
Sub test()
playMP3 "H:\mes musique\Amy Mc Donald\This is the Life - Amy Mac Donald\02 - This is the life2.mp3"
End Sub

Sub playMP3(chemin)
Set player = CreateObject("new:WMPlayer.OCX.7")
player.URL = chemin
End Sub
 
Sub playerStop()
player.Controls.Stop
End Sub

j'ai d'ailleurs fait mon propre player basé sur ce code
comme ca je ne suis pas obligé d'utiliser le control WMP
et l'interface c'est le mien

 

[chaelie2015]

Bonsoir le forum
Bonsoir chaelie, xUpsilon

Dans un module :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "accord" Then
    Shell ("C:\Program Files\Windows Media Player\wmplayer.exe """ & "C:\a\Musique\Zaz - La Fée.mp3" & "")
End If
End Sub

Le chemin est bien sur à adapter
Bonne nuit
@+ Eric c

Bonjour ERIC, TooFatBoy, patricktoulon
@ Eric: Merci pour la réponse c'est parfait, mais est ce que il y a une possibilité de lancer audio sans afficher le Windows Media Player?
Merci par avance

 

[Eric C]

Bonjour le fil

@chaelie - Ca je l'ignore. Ce que je sais c'est que le lecteur est "appelé" et donc visible avec le .exe. Maintenant, il y a peut être possibilité de le mettre en arrière plan ???
Bonne journée
@+ Eric c

 

[patricktoulon]

Bonjour ERIC, TooFatBoy, patricktoulon
@ Eric: Merci pour la réponse c'est parfait, mais est ce que il y a une possibilité de lancer audio sans afficher le Windows Media Player?
Merci par avance

heu .. il s'agirait de ne pas lire en diagonale les reponse que l'on te donne hein!!
en aucun cas le code du post 9 ouvre l'application WMP
le fichier c'est juste pour montrer une ébauche d'interface perso et que toute les fonctions de( lecture/pause/stop/etc....) sont dispos même sans l'interface WMP
c'est sur que si tu te jette sur le téléchargement du fichier sans lire la réponse tu va pas comprendre

 

[chaelie2015]

heu .. il s'agirait de ne pas lire en diagonale les reponse que l'on te donne hein!!
en aucun cas le code du post 9 ouvre l'application WMP
le fichier c'est juste pour montrer une ébauche d'interface perso et que toute les fonctions de( lecture/pause/stop/etc....) sont dispos même sans l'interface WMP
c'est sur que si tu te jette sur le téléchargement du fichier sans lire la réponse tu va pas comprendre

Merci

 

[patricktoulon]

alors ça fonctionne ou pas ?

 

[TooFatBoy]

@ Eric: Merci pour la réponse c'est parfait, mais est ce que il y a une possibilité de lancer audio sans afficher le Windows Media Player?

Je n'ai pas testé #5, mais j'ai testé #4, et je peux te dire qu'avec #4 tu n'as pas le WMP affiché.