> Tous les forums > Forum Bureautique
 VBA lister dossiers
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
BZH35
  Posté le 06/04/2026 @ 09:35 
Aller en bas de la page 
Petit astucien

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

Publicité
Dudu2
 Posté le 07/04/2026 à 06:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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
Brownie0169
 Posté le 07/04/2026 à 11:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Gallagh
 Posté le 08/04/2026 à 17:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
PC portable Lenovo 15.1 pouces LOQ 15IRX10 (WQXGA OLED 165 Hz, Intel Core i7-13650HX, 24 Go RAM DDR5, SSD 512 Go, RTX 5070 115W 8 Go, Windows 11)
1499,99 € 1699 € -12%
@Boulanger
Lot de 2 Câbles UGREEN USB C vers USB C PD 240W 2 mètres
11,99 € 18,99 € -37%
@Amazon
Portable 15.6 pouces Acemagic LX15 Pro (Ryzen 5 7430U, 16 Go, 512 Go SSD, Vega 7, Windows 11)
441,58 € 529,99 € -17%
@Amazon
Smartphone Xiaomi Poco M8 5G (6,77'', Full HD+ 120 Hz, Snapdragon 6 Gen 3, 8 Go Ram, 256 Go, batterie 7000 mAh, Android 15)
196,00 € 273 € -28%
@Amazon
Perceuse sans-fil Bosch Professional GSR 12V-15 + 2 batteries 2 AH
94,90 € 125 € -24%
@Cdiscount
Adaptateur BENFEI HDMI vers VGA
8,14 € 14,99 € -46%
@Amazon

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique