VBA Excel Nombre de fichiers dans un dossier

Sub Rep()
MsgBox NombreFichiers(Repertoire)

End Sub

Function NombreFichiers(ByVal Repertoire As String) As Long
    Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")
    NombreFichiers = FSO.GetFolder(Repertoire).Files.Count

    Set FSO = Nothing
End Function

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.