Discussion :

[megapacman]

Bonjour,

j'ai fait une fonction qui liste les fichiers d'un répertoire et ses sous-répertoires dans un fichier excel si ca peut servir a quelqu'un

les critiques sont les biens venues

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
Option Explicit
 
 
Sub ListFilesInFolder()
 
  Dim fso As FileSystemObject
  Dim oSourceFolder As Scripting.Folder
  Dim oSubFolder As Scripting.Folder
  Dim oFile As Scripting.File
  Dim oFolder As Scripting.Folder
  Dim strFolderName As String
  Dim i As Long
 
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    Cells(1, 1).Value = "Parent folder"
    Cells(1, 2).Value = "File name"
 
   strFolderName = "D:\"
 
    i = 2
 
  Set oSourceFolder = fso.GetFolder(strFolderName)
 
  For Each oFolder In oSourceFolder.SubFolders
 
            For Each oFile In oFolder.Files
 
            Cells(i, 1).Value = oFile.ParentFolder.path
            Cells(i, 2).Value = oFile.Name  
 
            i = i + 1
 
            Next oFile
 
    Next oFolder
 
End Sub

car ceux que j'ai trouvé sur le net , je les trouvais super compliqué

alors j'ai essayé de me simplifier au max

[ouskel'n'or]

Tu devrais proposer ça dans Vos contributions, à la suite de ceci