Probleme pour déclarer un objet Windows Media player

[schpoung]

Bonjour,

J'ai un soucis pour lancer Windows media player au travers de VBA.

J'ai bien repris ce qui était dans le tutoriel :

Sub lancement()
Dim Wmp As WindowsMediaPlayer

Set Wmp = CreateObject("WMPlayer.OCX.7")
Wmp.URL = "E:\Makaton\Niveau 1\VTS_2_6.VOB"
Wmp.Controls.Play
End Sub

Mais le CreateObject("WMPlayer.OCX.7") tombe en erreur !!


Erreur d'execution ' -2147467259 (80004005)'
erreur Automation

Quelqu'un peut-il dépanner ??

 

[david84]

Re : Probleme pour déclarer un objet Windows Media player

Bonjour,
si tu passes par l'utilisation d'un CreateObject (Late Binding) tu dois déclarer

Dim Wmp As Object

et non

Dim Wmp As WindowsMediaPlayer

Ensuite, il faut être sûr WMPlayer.OCX.7 soit le nom correct de l'objet disponible sur ton ordinateur.
A+