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 …

[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 !

[CristofMartins]

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