Bonjour
j'utilise cettemacro pour lister et je n'arrive pas à lister les sous repertoire je ne voie que le contenu du dossier mis dans chemin et pas le contenu des sous repertoires qui peux me dire ou je me suis plante merci.
Private Sub CommandButton12_Click()
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
j'utilise cettemacro pour lister et je n'arrive pas à lister les sous repertoire je ne voie que le contenu du dossier mis dans chemin et pas le contenu des sous repertoires qui peux me dire ou je me suis plante merci.
Private Sub CommandButton12_Click()
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