Bonjour à tous,
Je souhaite lister le nom des fichiers contenu dans un répertoire.
Pour lister les nom, pas de problème pour la macro, mais je souhaiterai lister seulement les fichiers contenant certains caractères, commençant par A uniquement et terminant par XXX, par exemple (les nom a selectionner ayant tous 10 caractères ....
Ci-joint le code que j'utilise pour lister les noms de fichier
Quelqu’un à déjà eu ce besoin.
Je souhaite lister le nom des fichiers contenu dans un répertoire.
Pour lister les nom, pas de problème pour la macro, mais je souhaiterai lister seulement les fichiers contenant certains caractères, commençant par A uniquement et terminant par XXX, par exemple (les nom a selectionner ayant tous 10 caractères ....
Ci-joint le code que j'utilise pour lister les noms de fichier
Code:
Sub ListeFichiers(Repertoire As String)
'Nécessite d'activer la référence "Microsoft Scripting RunTime"
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
'Récupère le numéro de la dernière ligne vide dans la colonne A.
i = Range("A65536").End(xlUp).Row + 1
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
'Inscrit le nom du fichier dans la cellule
Cells(i, 1) = FileItem.Name
'Ajoute un lien hypertexte vers le fichier
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=FileItem.ParentFolder & "\" & FileItem.Name
i = i + 1
Next FileItem
End Sub
Quelqu’un à déjà eu ce besoin.