Liste de nom de fichier sur excel Résolu

Question

Salut à tousJ'aimerais lister les fichiers gravés sur mes CD dans un tableau excel sans avoir à les retaper. Y a t-il un moyen rapide pour ça?

Armojax · Accepted Answer

Hello stela,

Voici une petite macro qui devrait faire ce que tu veux.
- adapte la lettre de ton lecteur de CD et le choix du dossier (j'ai mis D:)
- adapte le nom de la feuille dans laquelle tu veux le résultat (j'ai mis "Feuil1")

Armojax.

Sub ListeFic()

    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim Diag    As String
    Dim Nbr     As Long
    Dim I       As Long
    
    Set ScanFic = Application.FileSearch
    
    With ScanFic
        .NewSearch
        .LookIn = "D:"      ' adapter le nom du lecteur
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        Nbr = .Execute
        Diag = Format(Nbr, "0 ""fichiers trouvés""")
        
        I = 0
        For Each NomFic In .FoundFiles
            I = I + 1
            Sheets("Feuil1").Cells(I, 1).Value = NomFic ' adapter le nom de la feuille
        Next
        
        MsgBox Diag
        
    End With
        
End Sub

mo · Answer

Merci ca marche parfaitement !!!

flo03 : je pense que tu dois obligatoirement dézipper ton dossier !

Encore merci Armojax

Liste de nom de fichier sur excel

2 réponses

Discussions similaires

Newsletters