Bonjour à tous les amis,
j'utilise ce code pour lister tous les fichiers disponibles dans un répertoire et dans un sous répertoire :
Comment je pourrais faire pour alimenter cette liste sans pour autant écraser la liste que j'ai déjà sur le fichier ?
Merci d'avance
j'utilise ce code pour lister tous les fichiers disponibles dans un répertoire et dans un sous répertoire :
Private Sub LoadFichSuivant(ByRef Rep, InclusSousRep As Boolean) 'appel récursif
Dim FileItem As Object, DernLig As Long
DernLig = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row + 1
For Each FileItem In Rep.Files
Cells(DernLig, 1) = FileItem.parentfolder
Cells(DernLig, 2) = FileItem.Name
Cells(DernLig, 3) = FileItem.Datecreated
Cells(DernLig, 4) = FileItem.DateLastModified
'Cells(DernLig, 5).NumberFormat = "@"
'If FileItem.Size >= 1024 Then
' Cells(DernLig, 5) = Int(FileItem.Size / 1024) & " Ko"
'Else
' Cells(DernLig, 5) = FileItem.Size & " Octets"
'End If
Cells(DernLig, 5) = Right(FileItem.parentfolder, Len(FileItem.parentfolder) - InStrRev(FileItem.parentfolder, "\"))
'ActiveSheet.Hyperlinks.Add Cells(DernLig, 5), FileItem.Path
DernLig = DernLig + 1
Next
If InclusSousRep Then 'boucle si avec sous reps
Dim R As Variant
For Each R In Rep.SubFolders: LoadFichSuivant R, True: Next
End If
Set FileItem = Nothing
End Sub
Comment je pourrais faire pour alimenter cette liste sans pour autant écraser la liste que j'ai déjà sur le fichier ?
Merci d'avance