Comment compter les fichiers contenus dans un dossier ou répertoire spécifique à l’aide d’Excel ?

Le code VBA suivant vous permet de compter facilement un type de fichier spécifique dans un dossier donné — par exemple, tous les fichiers .xlsx d’un même répertoire. Voici la marche à suivre :

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

2. Cliquez sur Insertion > 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 compte les fichiers .xlsx dans un dossier donné. Pour compter d’autres types de fichiers, localisez la ligne xPath = xFolder & «\*.xlsx», puis remplacez .xlsx par 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 dans lequel vous souhaitez compter les types de fichiers spécifiques, puis cliquez sur le bouton OK.

5. Une boîte de dialogue s’affiche alors et vous indique combien de Type de fichier spécifiques existent dans le dossier donné. Fermez simplement cette boîte de dialogue.

Lorsque vous ouvrez un dossier, le nombre total de fichiers qu’il contient s’affiche généralement en bas de celui-ci. Cette méthode utilise l’utilitaire Ouvrir le dossier où se trouve le document actuel de Kutools pour Excel afin d’ouvrir le dossier contenant le classeur actuel, puis d’obtenir le nombre de fichiers qu’il renferme.

1. Cliquez sur KUTOOLS PLUS > Classeur > Ouvrir le dossier où se trouve le document actuel. Voir la capture d’écran :

2. Le dossier contenant des Classeur actuel s’ouvre désormais.

Désélectionnez tout fichier dans le Ouvrir le dossier, et vous verrez apparaître en bas du dossier le nombre total de fichiers, comme illustré dans la capture d’écran ci-dessous :

Remarque : L’utilitaire Ouvrir le dossier où se trouve le document actuel ne fonctionnera pas si vous n’avez jamais enregistré le classeur actuel auparavant.

Parfois, vous souhaitez peut-être compter plusieurs types de fichiers dans un dossier et ses sous-dossiers. En réalité, Kutools pour Excel propose un autre utilitaire : Liste des noms de fichiers, qui permet de résoudre ce problème 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, procédez comme suit :

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

4. Tous les fichiers du type spécifié sont désormais répertoriés dans une nouvelle feuille de calcul. Il vous suffit de sélectionner la première colonne sans l’en-tête pour voir le nombre de fichiers affiché dans la barre d’état, comme illustré dans la capture d’écran ci-dessous :