[vba-excel] lister le contenu d'un répertoire dans une feuille

Revision: 76988

at August 10, 2019 22:58 by martinbrait

Initial Code

Private Sub ListerFichiersDansRepertoire()
Dim dossier As Object, subfolder As Object, fichier As Object

Dim chemin As String

Dim i As Long
Dim ch As String

Sheets("feuil2").Select
Range("A6:B643").clear
Range("D6:E643").clear

chemin = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV\"

'Définition de la variable
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
'Set fso_objet = dossier.CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
' Boucle sur les fichiers
For Each fichier In dossier.Files
i = i + 1

'Cells(I, 2) = Fichier.Name ' Nom du fichier
Range("A6").Cells(i, 2) = Left(fichier.Name, InStr(fichier.Name, ".") - 1) 'sans l'extension
Range("A6").Cells(i, 4) = fichier.DateCreated ' Date de création
Range("A6").Cells(i, 5) = fichier.DateLastModified ' Nom du fichier
Range("A6").Cells(i, 10) = fichier.ParentFolder.Name ' Nom du fichier
Next

Unload Gestion_des_BT
Sheets("Feuil2").Visible = True
Range("A1").Select
End Sub

Initial URL

Initial Description

How to list files from a directory ?

Initial Title

[vba-excel] lister le contenu d'un répertoire dans une feuille

Initial Tags

list, files, directory

Initial Language

Visual Basic

Choose a language for easy browsing: