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
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