Discussion :

[sub73]

Bonjour à tous !

J'aimerais utiliser Windows Media Player dans VBA ; j'ai donc déclaré ce dernier dans Outils References (j'ai tout coché ce qui a un rapport avec Windows MEdia player) et malgré cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    MsgBox WindowsMediaPlayer1.Status
End Sub

j'obtiens le message suivant :

Erreur d'exécution '424';
Objet requis

Si quelqu'un a une idée ??

[Marc-L]

Bonjour,

je ne vois pas de déclaration d'objet !

En cochant la référence, c'est le cas du Early Binding, voir Early ou Late Binding …

[CristofMartins]

http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

[sub73]

Et comment est ce qu'il faut faire cette déclaration d'objet ; je trouve nulle part ...

Marc est-ce que tu as une idée pour faire cette déclaration d'objet ?

[Marc-L]

C'est pourtant indiqué dans les liens ! Donc via l'instruction Dim …

Et en particulier dans celui consacré au Windows Media Player, suffit de le lire !

Maintenant comme le besoin n'a pas été indiqué, peut-être qu'il a plus simple que d'utiliser Windows Media Player …

[Docmarti]

Moi, je ne suis pas arrivé à créer un objet WindowsMediaPlayer avec le code suivant. Ca me donne une erreur d'automation indéterminée.

Je dois donc mettre un contrôle WindowsMediaPlayer1 sur un Userform.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit	
Dim Wmp As WindowsMediaPlayer
 
Sub jouerWindowsMediaPlayer()
	Set Wmp = CreateObject("WMPlayer.OCX.7")
 
End Sub

Docmarti

[Marc-L]

Effectivement s'il n'y a pas de référence activée … Dans ce cas sans passer par un Userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Wmp As Object
 
Sub jouerWindowsMediaPlayer()
    Set Wmp = CreateObject("WMPlayer.OCX.7")
End Sub

Et si la référence est bien activée : Dim Wmp As New WindowsMediaPlayer …

J'attendais une réponse du demandeur quant au réel besoin
car une grosse Bertha n'est vraiment pas nécessaire pour jouer un son wave par exemple !

[sub73]

A priori , ce code (sans USERFORM) fonctionnait jusqu'à la version 10 de MediaPlayer mais depuis la version 11 , ça n'a pas l'air de fonctionner...

En revanche , l'insertion d'un controle ActiveX dans un USERFORM ou l'insertion dans une feuille Excel (objet Windowd Media Player) fonctionnent...

Moi je cherche simplement à jouer des morceaux avec WMPlayer (Blind Test) et à récupérer automatiquement le titre de la chanson dans Excel ; mais à priori , je vais etre obligé de lire les morceaux directement depuis Excel...

[jurassic pork]

hello,

A priori , ce code (sans USERFORM) fonctionnait jusqu'à la version 10 de MediaPlayer mais depuis la version 11 , ça n'a pas l'air de fonctionner...

je sais que le sujet commence à dater mais comme je suis tombé sur le même problème (avec une erreur Erreur Automation, Erreur non spécifiée sur le createObject) et que j'ai eu du mal à trouver sur internet le moyen de résoudre ce problème, je vous donne une solution qui semble fonctionner ( testée sur Excel 2016, Excel 2019, Windows Media Player 12, Windows 10) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set OWMP = CreateObject("new:WMPlayer.OCX.7")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set OWMP = CreateObject("new:6BF52A52-394A-11D3-B153-00C04F79FAA6")

Voici un exemple complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public OWMP As Object
 
Sub JoueSon()
If OWMP Is Nothing Then
    Set OWMP = CreateObject("new:WMPlayer.OCX.7")
End if
OWMP.Url = "D:\zic\MaMusique.mp3"
' OWMP.Controls.Play   A Mettre si le lecteur n'est pas en autoPlay
End Sub
 
 
Sub ArretSon()
If OWMP Is Nothing Then Exit Sub
OWMP.Controls.Stop
End Sub
'

Dans le tutoriel de SilkyRoad sur Windows Media Player si vous rencontrez le même problème essayer d'appliquer ma solution.

Ami calmant, J.P