calculer le nombre fichier .xls dans un dossier

[loiclass]

Bonjour,
Je cherche à déterminer le nombre de fichier .xls présent dans un dossier.
Le problème avec la macro ci-dessous est que ça prend en compte dans le calcul les extensions .xlsm et .xlsx
Je ne vois pas où est l'erreur.

Sub test()
Dim FileSystemObject As Object, f As Object
Dim Compteur As Long
Dim Chemin As String

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\"

For Each f In FileSystemObject.GetFolder(Chemin).Files
If InStr(1, f.Name, ".xls") > 0 Then Compteur = Compteur + 1
Next f
MsgBox "Nombre total de fichiers : " & Compteur
End Sub

Merci de votre aide

 

[Jacky67]

Bonjour,
Essaye avec
If f.Name Like "*.xls" Then Compteur = Compteur + 1

 

[Roland_M]

Bonsoir,

If lcase(Right(f.Name, 4)) = ".xls" Then

EDIT: salut jacky !

 

[loiclass]

Bonjour,
Merci à vous 2.
j'ai gardé la version de Roland

 

[loiclass]

Bonjour,
Merci à vous 2.
J'ai gardé la version de Roland

 

[Roland_M]

Bonsoir,

merci !
mais celle de Jacky67 est excellente c'est parce que je n'y ai pas pensé sinon je te l'aurai proposé.
retiens la aussi elle te servira !