VBA Excel Compter le nombre de fichier dans un répertoire commençant par TAW

Pour developper un petit programme afin de trouver le nombre de fichier Excel prenant en charge les macros et commençants par "TAW" dans un répertoire donnée, vous n'avez qu'à écrire le programme suivant sous VBA. Vous pouvez l'appliquer pour les autres types de fichiers en remplaçant l’extension xlsm par n'importe quelle autre extension: docx, xlsx, txt, etc.
 
 Sub Hist_Fiche()
'Remplacez adresse par le chemin du dossier ou voulez cherchez.
 MsgBox  "Nombre de fichier trouvés " & NbFich(Adress, "xlsm")
End Sub
 
Function NbFich(Adress As String, ParamArray Termin() As Variant) As Long
'Auteur: Random
Dim Fichier As String
Dim Extension As Variant
Dim Compteur As Long

For Each Extension In Termin
'ici ne remplacer par "adress" par le chemin du dossier
   Fichier = Dir(Adress & "\TAW*." & Extension)
   Do Until Fichier = ""
   Compteur = Compteur + 1
   Fichier = Dir
   Loop
Next Extension

NbFich = Compteur
End Function

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.