Imaginez que vous deviez découvrir dans une macro le nombre de fichiers dans un répertoire. Pour ce faire, entrez d’abord la fonction suivante:
Function FichierRepertoire(str) As Long Dim DatChaine As String Dim n As Long DatChaine = Dir$(str & "\*.*") Do While Len(DatChaine) > 0 n = n + 1 DatChaine = Dir$() Loop FichierRepertoire = n End Function
Commentaires
■ La fonction FichierRepertoire attend le nom du répertoire auquel vous souhaitez accéder comme entrée. Par conséquent, la fonction vous fournit le nombre de fichiers déterminé dans le type de données Long.
■Si vous ne souhaitez compter que certains fichiers, vous pouvez modifier la fonction ci-dessus en utilisant la chaîne DatChaine = Dir $ (str & “\ *. *”) In DatChaine = Dir $ (str & “\ *. Xls”) par exemple changer.
■Ce petit changement signifie que seuls les fichiers Excel sont comptés.
Désormais, seule la macro est manquante, qui transfère la fonction vers le répertoire et évalue le retour de la fonction.
Sub CompterLesFichiers()
Dim i As Long
i = FichierRepertoire("c:\")
MsgBox i
End Sub