Probleme pour déclarer un objet Windows Media player

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 ??