OVH Cloud OVH Cloud

mplayer2 dans VBA Excel

3 réponses
Avatar
Stéphane L.
Bonjour,

Je cherche à lancer le lecteur Windows Media Player et jouer 1 son à partir
de VBA Excel.

Je n'arrive qu'à lancer l'applcation par Shell, mais pas à ouvrir 1 fichier.
Si j'essaie en DDE, je n'arrive même pas à ouvrir l'application.

Merci d'avance pour votre aide

--
Cordialement,

Stéphane L

3 réponses

Avatar
michdenis
Bonjour Stéphane,

Voici quelque chose sous Window et Excel 2002

Procédure ans un formulaire
Tu ajoutes un contrôle supplémentaire à la liste d'outils : Windows Media player

Cela lance window média player et joue le fichier désigné.

'----------------------------
Sub Jouer()

WindowsMediaPlayer1.openPlayer ("F:Charles Aznavour - La boheme.mp3")

End Sub
'----------------------------


Salutations!


"Stéphane L." a écrit dans le message de news:
Bonjour,

Je cherche à lancer le lecteur Windows Media Player et jouer 1 son à partir
de VBA Excel.

Je n'arrive qu'à lancer l'applcation par Shell, mais pas à ouvrir 1 fichier.
Si j'essaie en DDE, je n'arrive même pas à ouvrir l'application.

Merci d'avance pour votre aide

--
Cordialement,

Stéphane L
Avatar
Stéphane L.
trouvé :)

dim obj_mp as object

set obj_mp=createobject("mediaplayer.mediaplayer")
obj_mp.open("c:monson.mp3")

"Stéphane L." a écrit dans le message de
news:
Bonjour,

Je cherche à lancer le lecteur Windows Media Player et jouer 1 son à
partir

de VBA Excel.

Je n'arrive qu'à lancer l'applcation par Shell, mais pas à ouvrir 1
fichier.

Si j'essaie en DDE, je n'arrive même pas à ouvrir l'application.

Merci d'avance pour votre aide

--
Cordialement,

Stéphane L




Avatar
Clément Marcotte
Bonjour,

Utilise un UserForm avec le contrôle ActiveX du lecteur.



"Stéphane L." a écrit dans le message de
news:
Bonjour,

Je cherche à lancer le lecteur Windows Media Player et jouer 1 son à
partir

de VBA Excel.

Je n'arrive qu'à lancer l'applcation par Shell, mais pas à ouvrir 1
fichier.

Si j'essaie en DDE, je n'arrive même pas à ouvrir l'application.

Merci d'avance pour votre aide

--
Cordialement,

Stéphane L