Discussion :

[beaujack]

Bonjour,
J'ai débuté en VBA il y 40 ans et de manière autodidacte
J'avoue ne plus comprendre entre le nom des contrôles, des fichiers etc…
Faut-il mettre des guillemets, des noms de variables et…
Je me suis efforcé de créer un nouveau classeur et mettre de façon simplifiée les différents contrôles pour comprendre WindowsMediaPlayer et de suivre le code qui est sur le site :
https://codes-sources.commentcamarch...ayer-9-wmp-dll

Sans succès
Mon fichier en pièce jointe.
https://www.cjoint.com/c/MEFpnYKPlfe
Merci d'avance de votre aide pour plus d'explications.
Cordialement CCMBREIZH

[jurassic pork]

Hello,
Avec ce code tu n'as plus besoin d'utiliser l'activeX mediaplayer on utilise l'objet COM WMPlayer.OCX.7

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
16
17
18
19
20
Option Explicit
Private OWMP As Object
 
Private Sub UserForm_Initialize()
    Dim Xwmp As Object
    Dim NB_LIGNE As Integer
    Dim ficMP3 As String
    Dim i As Integer
    Set OWMP = CreateObject("new:WMPlayer.OCX.7")
    'nettoye la Playlist en cours avant de réalimenter la liste
    OWMP.currentPlaylist.Clear
    NB_LIGNE = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To NB_LIGNE
        'Récupération de la CHANSON
        ficMP3 = Sheets("Feuil1").Cells(i, 1)
        MsgBox ficMP3 'Pour vérification
        Set Xwmp = OWMP.newMedia(ficMP3)
        OWMP.currentPlaylist.insertItem i - 1, Xwmp
    Next i
End Sub

Ami calmant, J.P

[beaujack]

Merci à Jurassic pork,
Je ne connais pas cet OCX, et comme j'aime bien comprendre, je vais explorer cet ocx et voir ces différentes fonctionnalités.
Depuis mon premier post j'ai repris toutes les actions avec WindowsMediaPlayer à partir du site :
https://silkyroad.developpez.com/VBA...wsMediaPlayer/
Merci également à SilkyRoad dont je reprend point par point ces explication.
Cordialement CCM35