Sub BoucleFichiers()
InclureXlsDocPdf = 1 ' Mettre 1 si doit inclure xls, doc et pdf, sinon mettre 0
ExclureXlsDocPdf = 0 ' Mettre 1 si doit exclure xls, doc et pdf, sinon mettre 0
' donc 1 et 1 lestera tous les fichiers
ListeFichiers InclureXlsDocPdf, ExclureXlsDocPdf
End Sub
Sub ListeFichiers(Inclure, Exclure)
Dim Chemin As String, Fichier As String, i As Integer
' Efface liste
Range("A:A").ClearContents
'Définit le répertoire contenant les fichiers, à modifier. ici fichiers sur écran.
Chemin = [C2]
'Boucle sur tous les fichiers du répertoire.
Fichier = Dir(Chemin & "*.*")
i = 1
Do While Len(Fichier) > 0
' Suppression de l'affichage des fichiers doc, xls, pdf et aussi xlsx,xlsm,docx,docm
If Right(Fichier, 3) = "doc" Or Right(Fichier, 3) = "xls" Or Right(Fichier, 3) = "pdf" Or _
Right(Fichier, 1) = "x" Or Right(Fichier, 1) = "m" Then
If Inclure = 1 Then
' Range le nom du fichier dans la colonne A car de type xls doc pdf
Cells(i, 1) = Fichier
i = i + 1 ' incrément N° de ligne
End If
Else
If Exclure = 1 Then
' Range le nom du fichier dans la colonne A car de type AUTRE que xls doc pdf
Cells(i, 1) = Fichier
i = i + 1 ' incrément N° de ligne
End If
End If
Fichier = Dir()
Loop
End Sub