Sub nombrefic()
Dim fs, i&, DOSSIER$
Set fs = Application.FileSearch
DOSSIER = "C:\Temp"
With fs
.LookIn = DOSSIER
.Filename = "*.*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Nombre de fichiers trouvées : " _
& .FoundFiles.Count, vbInformation, "Répertoire traité : " & DOSSIER
Else
MsgBox "Aucun fichier."
End If
End With
End Sub