Function Nombre_Fichiers(ByVal Dossier As String)
With Application.FileSearch
.LookIn = Dossier
.Filename = "*.???"
.Execute
nbr = .FoundFiles.Count
End With
Nombre_Fichiers = nbr + 1
End Function
Sub test()
Dossier = InputBox("Indiquez le chemin et le nom du dossier à scanner, svp")
MsgBox "Nombre de fichiers trouvés : " & Nombre_Fichiers(Dossier)
End Sub