bibliothèque WMP introuvable

[Lone-wolf]

Bonjour à tous,

j'ai copier ce code pour test, mais excel dit que la bibliothèque est introuvable.

Pourtant les fichiers .dll et .ocx sont bien là et dans Références aussi.

Option Explicit

    Dim Wmp As WindowsMediaPlayer

 Sub jouerMedia()

    Set Wmp = CreateObject("msdxm.ocx")

    Wmp.URL = "D:\Dossiers Excel\Formulaires\Jeux\alone.mp3"

    Wmp.Controls.Play

    End Sub

    Sub arreterMedia()

    If Wmp Is Nothing Then Exit Sub

    Wmp.Controls.stop

    End Sub

C'est à cause du fichier MP3?

 

[Lone-wolf]

Re : bibliothèque WMP introuvable

Je viens de modifier msdxm.ocx par wmp.ocx, j'ai ce message:

Un composant ActiveX ne peut pas créer d'objet.

 

[JNP]

Re : bibliothèque WMP introuvable

Option Explicit
 
    Dim Wmp As WindowsMediaPlayer
 
 Sub jouerMedia()
 
    Set Wmp = CreateObject("[COLOR=red][B]msdxm.ocx[/B][/COLOR]")[/QUOTE]Un OCX n'est pas un applicatif... Esssaie déjà avec msdxm.application...
A + :cool:

 

[Lone-wolf]

Re : bibliothèque WMP introuvable

Hello JNP! 🙂

J'ai reçu un code d'un XLDnaute qui permet d'écouter la musique sans avoir a mettre le lecteur; je te remercie quand même d'avoir répondu.

A+