Normal 0 21 false false false FR X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Tableau Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri",sans-serif; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-font-kerning:1.0pt; mso-ligatures:standardcontextual; mso-fareast-language:EN-US;}

Bonjours,

Sous Windows 10 et Excel 2016

Voila ce que j'ai fait :

J'ai ouvert l'explorateur de Fichiers, sélectionner le lecteur C, puis icône Nouveau dossier

Je l'ai nommé : TOTO > Entrée

Quand je fais un click droit sur ce dossier et que je sélectionne Propriétés

Dans la nouvelle fenêtre j'ai les caractéristiques de ce dossier :

Son Nom, le Type, l'Emplacement, la Taille, la Taille sur le disque etc…

En macro VBA, je souhaiterai si possible, c'est de lister sur la Feuil1 du classeur1 que les dossiers du lecteur C avec leurs caractéristiques SANS les sous-dossiers.

Merci d'avance de votre aide

Cordialement BZH35

[Configuration automatique à compléter]
Windows 10/11
Firefox 149.0

Bonjour,

Peu importe, pose la question à ChatGPT "Liste des répertoires d'un drive en FSO" (en Dir il ne liste pas tout), et à part quelques petites adaptations pour paramétrer "C:\" et ta cellule d'affichage de départ "A1", voilà ce que tu obtiens:

Option Explicit

Private Const Drive = "C:\"
Private Const CelluleListe = "A1"

Sub ListeRépertoireFSO()
Dim fso As Object
Dim dossier As Object
Dim sousDossier As Object
Dim cellule As Range

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(Drive)
Set cellule = ActiveSheet.Range(CelluleListe)

On Error Resume Next
For Each sousDossier In dossier.SubFolders
cellule.Value = sousDossier
'https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/folder-object
cellule.Offset(0, 1).Value = Format(sousDossier.Size, "#,##0")
If Not err.Number = 0 Then
cellule.Offset(0, 1).Value = "?"
err.Clear
End If
cellule.Offset(0, 2).Value = sousDossier.DateLastModified
Set cellule = cellule.Offset(1, 0)
Next sousDossier
End Sub

Modifié par Dudu2 le 09/04/2026 05:44

La logithèque de PC Astuce propose LUD, petit logiciel sans installation, et personnalisable.

Plutôt que de bloquer le code sur un répertoire et une cellule, pourquoi ne pas ouvrir une boite pour y entrer ces informations ?
Remplacer les deux premières lignes par ceci :

---------

Dim Drive As String
Dim CelluleListe As String

Drive = InputBox("Entrez le répertoire :", "Répertoire", "C:\")
If Drive = "" Then Exit Sub ' Annulation

CelluleListe = InputBox("Entrez la cellule de la liste :", "Cellule", "A1")
If CelluleListe = "" Then Exit Sub ' Annulation

---------

Par défaut, le répertoire C et la cellule A1 sont proposés dans la boite inputbox.