Discussion :

[revline]

Bonjour,
J'utilise le merveilleux code de SilkyRoad à la page http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/
Mais quand je veux intégrer :

'Une autre solution qui liste toutes les informations

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
Private Sub CommandButton1_Click()
    Dim Resultat As String
    Dim i As Integer
    Dim Cm As WMPLib.IWMPMedia
    Set Cm = WindowsMediaPlayer1.currentMedia
 
    'boucle sur les attributs
    For i = 0 To Cm.attributeCount - 1
        If Cm.getItemInfo(Cm.getAttributeName(i)) <> "" Then _
        Resultat = Resultat & Cm.getAttributeName(i) & " : " & _
        Cm.getItemInfo(Cm.getAttributeName(i)) & vbLf
    Next
 
    MsgBox Resultat
End Sub

J'ai l'erreur "Type défini par l'utilisateur non défini" sur Dim Cm As WMPLib.IWMPMedia... et je ne sais pas définir ce type !!!

Merci de votre aide.

[ProgElecT]

Salut

Si tu déclares la variable comme cela Dim Cm As IWMPMedia, en enlevant WMPLib., tu supprimes l'erreur.
Par contre, il faut que tu ais un media ouvert exemple WindowsMediaPlayer1.URL = "C:\PersoFrancis\Sources divers\Melange de docs\NewProg6.avi", sinon Cm = NotHing.

[revline]

Merci pour cette réponse, cela fonctionne...
J'aurais préféré bien entendu savoir définir la variable, mais puisque ça marche...
Merci encore