Faire lire la musique dans mon userform

Salut à tous,

j'ai créé mon lecteur de musique et vidéo dans un Userform mais je suis confronté à des codes:

1) - je souhaiterais charger plusieurs fichiers musiques ou vidéos dans ma listbox

2) - je souhaiterais, après avoir cliqué sur un fichier dans ma listbox qu'il charge pour la lecture

3) - Je souhaiterais que la lecture se face sans interruption, c'est à dire à la fin de la lecture du fichier en cours que le suivant s’enclenche seul.

Merci de m'aider. Je joints mon fichier.

bonjour Jeunixe

j'ai ouvert ton classeur et j'ai trouvé une listview et pas de listbox j'ai modifier le chemin vers un fichier .mp3 et je peux le lire sur ton classeur mais je ne sais pas comment faire pour que les listes s'affiche dans la listview mais je vais essayer l'enregistreur fait des trouvailles parfois

en fait tu veux imiter le lecteur qu'est VLC

Pascal

un début pour remplir ta listview tu aura le chemin a modifier et amettre a la suite de ton code

    Private Sub UserForm_Initialize()
        Dim Fichier As Object, FSO As Object, C As Range, Ctr As Long, F As Object
        Chemin = "D:\musiques\"
        Set FSO = CreateObject("Scripting.FileSystemObject")
        'Définit les entêtes de colonnes
        With ListView1
            With .ColumnHeaders
                .Clear 'Supprime les anciens entêtes
                'Ajout des colonnes
                .Add , , "Nom fichier", 200

            End With

        .View = lvwReport 'affichage en mode Rapport
        .Gridlines = True 'affichage d'un quadrillage
        .FullRowSelect = True 'Sélection des lignes comlètes
        End With

        '----- Remplissage ListView------------------------

        With ListView1
            For Each Fichier In FSO.getfolder(Chemin).Files
                Ctr = Ctr + 1
                .ListItems.Add , , Fichier.Name
                .ListItems(Ctr).ListSubItems.Add , , Fichier.Name
                .ListItems(Ctr).ListSubItems.Add , , Fichier.Size / 1024
                .ListItems(Ctr).ListSubItems.Add , , Fichier.datecreated
                .ListItems(Ctr).ListSubItems.Add , , Fichier.datelastmodified
            Next Fichier
        End With
    End Sub

voila a plus pour le reste je pense qu'il y a plus caler pour te répondre

bonne fêtes de fin d'année a toi et le forum

Pascal

Salut Grisan29

merci pour ton aide, seulement j'ai inséré le code dans mon projet mais aucune réaction sauf erreur de ma part. Je te retourne le projet avec ton code inséré. Merci à Toi.

Merci PASCAL.

A toi et à toute ta famille, BONNE ANNÉE 2016.

BONNE ANNÉE AU FORUM

bonjour Jeunixe

bonne fin d'année a toi et tout le forum

je pense que le chemin

Chemin = "F\musiques\"

n'est pas bon car je n'ai cas remplacer la lettre F par D et chez moi la listview se charge est ce que tu le cherche via l'explorateur windows

quand tu as trouver ou sa se trouve sur F tu regarde en haut et tu verras ou ca se trouve et comme tu peux voir sur mon "chemin" tu peux copier et coller dans le code

mais si tu veux faire une sélection de lecture comme tu le veux cela dépasse mes compétences, remplir un textbox oui mais pas une lecture pas a pas

Pascal

Salut Grisan29,

finalement le lecteur arrive à lire les fichiers mais la listbox ne se charge pas.

Merci à toi et au forum