Compter les fichiers dans un répertoire avec Excel VBA

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

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x