copier coller les titres des chanteurs de video

[patrick02880]

Bonjour a tous , voila j'ai 1292 chansons c'est t'a dire en video que j'ai telecharger sur you tube , donc je voudrais copier et coller tout les artistes sur excel merci d'avance ! a bientôt !

 

[patrick02880]

Re : copier coller les titres des chanteurs de video

Bonjour alors y a t'il une personne pour me trouver une reponse positive ou negative , mille fois merci ! je compte sur vous tous !

 

[Claude5]

Re : copier coller les titres des chanteurs de video

Bonjour,

avez-vous essayé un copier coller transféré sur un fichier Excel? Sinon joignez une extraction pour voir sa tête.

 

[patrick02880]

Re : copier coller les titres des chanteurs de video

Bonsoir , merci pour ta réponse claude 5 mais ca ne marche pas du moins je n'ai rien compris ! d'autre explication mieux détailler serais les bien venu merci !

 

[JCGL]

Re : copier coller les titres des chanteurs de video

Bonjour à tous,

Bienvenue sur XLD

Patrick : Tu souhaites lister tous les fichiers d'un répertoire ?

Ce qui est clair pour toi ne l'est pas forcément dans ta demande.

Option Explicit


Sub Listage()
Dim F_Rep(10000, 1)
Dim F As String, Nom_Rep As String
Dim Nb_F As Long


Range("A2:A20000").ClearContents


F = Dir$(ThisWorkbook.Path & "\" & "*.*")    ' à adapter
Do While F <> ""
    F_Rep(Nb_F, 0) = F
    F = Dir$
    Nb_F = Nb_F + 1
Loop


Nb_F = 0


While F_Rep(Nb_F, 0) <> Nom_Rep
    Range("A2").Offset(Nb_F, 0).Value = F_Rep(Nb_F, 0)
    Nb_F = Nb_F + 1
Wend
With Feuil1
.[A2:A20000].Sort .[A2], xlAscending
.Range("A:A").Columns.AutoFit
.Cells(1, 1).Select
End With
End Sub

A+ à tous