comptage de fichier dans un dossier

salut je suis a la recherche d'une solution qui me permettrai de compter le nombre de fichier excel présent dans un dossier dont j'ai le chemin réseau. Je veux juste récupérer un nombre entier qui me dirai combien il y a de fichier dans le dossier.
Merci

Bonjour,
Ceci devrait répondre à ta question.

Sub CompterFichier()
Dim Rep As String
Dim n As Integer
    Rep = Dir("C:\Documents and Settings\JEAN-PIERRE\Mes documents\*.xls")
   While Rep <> ""
    n = n + 1
Rep = Dir
Wend
MsgBox "Il y a " & n & " fichier(s) dans le répertoire"
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée

Salut,

Principe: Faire le tour de ton dossier afin de comparer l'extension de chaque fichiers présent.

A l'intérieur d'un bouton par exemple on va parcourir ton dossier....
8<--------------------------------------------------------------------
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim iNbFichiers As Integer
iNbFichiers = 0

For Each fichier In fso.GetFolder("c:\TonDossier").Files

    If UCase(GetExt(fichier)) = UCase(".xls") Then iNbFichiers = iNbFichiers + 1

Next

fso = Nothing

MsgBox iNbFichiers
-------------------------------------------------------------------->8

Cette fonction te retourne l'extension du fichier
8<--------------------------------------------------------------------
Function GetExt(fichier As String)

    Dim pos As Integer
   
    pos = InStrRev(fichier, ".")
   
    GetExt = Left$(fichier, pos)

End Function
-------------------------------------------------------------------->8