Compter des fichiers dans un répertoire

[kiki31140]

Bonjour forum

J'utilise le code plus bas afin de compter le nombre de fichiers à traiter.
Or, dans mon répertoire, j'ai un fichier "FORM_modele.xls" et je ne veux pas qu'il soit comptabilisé.
J'ai parcouru le forum et je ne trouve pas la fonction qui va bien pour l'exclure.

Merci par avance
Kiki31140


Sub Test()
Chemin = ThisWorkbook.Path

MsgBox " nombre de fichier à traiter : " & NbFich(ThisWorkbook.Path, xls)

End Sub

Function NbFich(Chemin As String, ParamArray Termin() As Variant) As Long

Dim Fichier As String
Dim Extension As Variant
Dim Compteur As Long

For Each Extension In Termin
fic = Chemin & "\FORM*.xls"
Fichier = Dir(fic)
Do Until Fichier = ""
Compteur = Compteur + 1
Fichier = Dir
If Fichier Like "*" & modele.xls & "*" Then
Compteur = Compteur - 1
End If
Loop
Next Extension

NbFich = Compteur

End Function

 

[david84]

Re : Compter des fichiers dans un répertoire

Bonjour,
en l'absence de fichier j'en reste au stade des suppositions.
A priori il te faut modifier la condition de la partie

If Fichier Like "*" & modele.xls & "*" Then

donc a priori je dirais

If not Fichier Like "*FORM_modele.xls" Then

ce qui sous-entend qu'il te prendra tous les autres.
A+

 

[fredl]

Re : Compter des fichiers dans un répertoire

Bonjour,
essaie comme cela :

If Fichier Like "*modele.xls*" Then

au lieu de

If Fichier Like "*" & modele.xls & "*" Then

je crois que cela résoudra ton problème...

Joyeuses fêtes!
Frédéric

 

[kiki31140]

Re : Compter des fichiers dans un répertoire

Bonjour David et Fred
et rebonjour Forum

J'ai testé les 2 méthodes et cela fonctionne parfaitement.
Les suppositions de David ont été bonnes ainsi que la proposition de Fred.

Merci à tous et passez de bonnes fêtes