Si, dans un classeur créé avec Excel 2000 de Microsoft, vous avez besoin, dans un de vos programmes en VBA, d’afficher ou de connaître le nom des fichiers situés dans un répertoire, le meilleur moyen consiste à utiliser l’objet FileSearch. Pour cela, ouvrez un classeur Excel et appuyez sur la combinaison de touches
Sub RecupFichier()
Dim Compteur1 As Integer
Dim ObjetTrouve As FileSearch
Dim ListeFichiers As String
Dim Dossier As String
Dossier = InputBox(“Indiquez le répertoire à afficher”, “Liste de fichiers”, CurDir())
If Dossier = “” Then
MsgBox (“Opération annulée.”)
End
End If
ListeFichiers = Dossier & Chr(13) & Chr(13)
Set ObjetTrouve = Application.FileSearch
With ObjetTrouve
.NewSearch
.LookIn = Dossier
.SearchSubFolders = False
.FileName = “*.*”
.Execute
If .FoundFiles.Count > 0 Then
For Compteur1 = 1 To .FoundFiles.Count
ListeFichiers = ListeFichiers & .FoundFiles(Compteur1) & Chr(13)
Next Compteur1
Else
ListeFichiers = ListeFichiers & “Pas de fichiers trouvés.”
End If
MsgBox ListeFichiers
End With
End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.