Comment compter les fichiers dans un dossier/répertoire spécifique dans Excel ?

Le VBA suivant peut vous aider à compter facilement un type spécifique de fichiers dans un dossier donné, par exemple, compter tous les fichiers .xlsx dans un dossier. Veuillez procéder comme suit :

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la fenêtre Module qui s'ouvre.

VBA : Compter un fichier spécifique dans un dossier donné

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Remarque : Le code VBA ci-dessus comptera les fichiers .xlsx dans un dossier donné. Pour compter d'autres types de fichiers, trouvez xPath = xFolder & "\*.xlsx", et changez l'extension .xlsx en une autre extension de fichier selon vos besoins.

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code VBA.

4. Dans la boîte de dialogue Parcourir qui s'ouvre, sélectionnez le dossier spécifique où vous compterez les fichiers d'un type spécifique, puis cliquez sur le bouton OK.

5. Une boîte de dialogue apparaîtra et vous indiquera combien de fichiers du type spécifié existent dans le dossier donné. Fermez simplement la boîte de dialogue.

Si vous avez ouvert un dossier, normalement, vous obtiendrez le nombre total de fichiers au bas de ce dossier. Cette méthode introduira l’utilitaire Ouvrir le dossier contenant de Kutools pour Excel pour ouvrir le dossier contenant le classeur actuel, puis obtenir le nombre de fichiers dans ce dossier.

1. Cliquez sur Kutools Plus > Classeur > Ouvrir le dossier contenant. Voir capture d'écran :

2. Maintenant, le dossier contenant le classeur actuel est ouvert.

Déselectionnez tout fichier dans le dossier ouvert, et vous verrez le nombre total de fichiers au bas de ce dossier, comme le montre la capture d'écran ci-dessous :

Remarque: Le Ouvrir le dossier contenant l'utilitaire sera invalide si vous n'avez jamais enregistré le classeur actuel auparavant.

Parfois, vous voudrez peut-être compter plusieurs types de fichiers dans un dossier et ses sous-dossiers. En fait, Kutools pour Excel fournit une autre utilité Liste des noms de fichiers pour résoudre cela facilement.

1. Cliquez sur Kutools Plus > Importer / Exporter > Liste des noms de fichiers pour ouvrir la boîte de dialogue Liste des noms de fichiers.

2. Dans la boîte de dialogue Liste des noms de fichiers qui s'ouvre, veuillez procéder comme suit :

3. Cliquez sur le bouton Ok dans la boîte de dialogue Liste des noms de fichiers.

4. Maintenant, tous les fichiers des types spécifiques sont listés dans une nouvelle feuille de calcul. Sélectionnez simplement la première colonne sans l'en-tête de colonne, et vous obtiendrez le nombre de fichiers dans la barre d'état comme le montre la capture d'écran ci-dessous :