Quoi utiliser pour afficher le contenu d'un dossier

Question

Suite à plusieurs poste laissés sur ce forum, je reviens avec une nouvelle question : Que devrais-je utiliser pour pouvoir afficher le contenu d'un répertoire et de ses sous-dossiers se trouvant dans le dossier "mes documents" ? Et quelle code faut il y insérer? J'explique pourquoi, j'ai une boite de dialogue nommer "Convertir en PDF", il y a une ListView qui m'affiche les feuilles du classeur à convertir puis une autre zone qui m'afficherais les éléments convertis (c'est là que je ne sais pas quoi utiliser). Merci pour votre aide Christian...

kingfadhel · Answer

Un fichier recuperer sur un forum, tu saisis le chemin du dossier à lister les fichiers et fichiers des sous-dossiers ensuite click sur le bouton, un nouveau classeur s'ouvre et s'y insere la liste...

kingfadhel · Answer

Re,

un autre code ou tu renseigne le dossier dans la macro

Sub Fichiers_et_Taille()
Dim fso As Object, Dossier As Object
Dim LeDossier, Lig As Long
LeDossier = Range("B1")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)

For Each file In Dossier.Files
    Lig = Lig + 1
    With Worksheets("Feuil1")
        .Cells(Lig, 4) = file.Name
    End With
Next
Set fso = Nothing
Columns(4).AutoFit
End Sub

23exple.zip (11.66 Ko)