[vba] Liste des fichiers d'un sous-répertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [vba] Liste des fichiers d'un sous-répertoire

jr10

Pourvu qu'on y arrive ...

Bonjour,

Je voudrais obtenir la liste des fichiers d'un répertoire
(et si possible des sous-répertoires)
en VBA epour les mettre dans un tableau Excel.

Existe-t-il une commande pour le faire automatiquement
sans avoir a passé par une commande de redirection du type
dir *.* > fichier dans un fichier bat ?

Merci de votre réponse

Cordialement

jr10

Publicité

galopin01

Bonsoir,
La macro suivante liste les sous répertoires et les fichiers dans la colonne A de la feuille 1.
Pour personnaliser le chemin :
- ExplorateurWindows - Propriétés - Emplacement (ou Cible)

Sub Test()
ChDir "C:\...Mon chemin....\Mes documents"
Z = Dir("*.*", 16)
While Z <> ""
Worksheets(1).Cells(i + 1, 1).Value = Z
i = i + 1
Z = Dir
Wend
End Sub

Mais les fichiers et sous répertoires sont triés dans un ordre
alphabétique strict...

---------------
roger

Lord Nelson

Salut,

A supposer que tu entres en A3 un chemin d'accès quelconque, voici comment afficher dans une feuille Excel les dossiers et/ou fichiers correspondants :

Sub Dossiers()
Dim Chemin As String, Fichier As String, Ligne As Integer
Chemin = Range("A3" ).Text
Fichier = Dir(Chemin & "\*.", vbDirectory)
Ligne = 4
Do While Fichier <> ""
If Fichier <> "." And Fichier <> ".." Then
Ligne = Ligne + 1
Cells(Ligne, 2) = Chemin & "\" & Fichier
End If
Fichier = Dir
Loop
End Sub

Sub Fichiers()
Dim Chemin As String, Fichier As String, Ligne As Integer
Chemin = Range("A3" ).Text
Fichier = Dir(Chemin & "\*", vbNormal)
Ligne = 4
Do While Fichier <> ""
If Fichier <> "." And Fichier <> ".." Then
Ligne = Ligne + 1
Cells(Ligne, 6) = Chemin & "\" & Fichier
End If
Fichier = Dir
Loop
End Sub

A+
Horatio

galopin01

A mon avis le plus cool c'est une combinaison des 2 (.bat + VBA)
Avec un fichier toto.bat = DIR /0:GN *.* > result.txt
Cet exemple affiche en une seule passe les "Rep" et "Fch" de "MesDocs"
sous une forme facile à exploiter.

Sub Test()
Chemin = "C:\Documents and Settings\...Mon Chemin...\Mes documents"
Shell "Chemin" & "\toto.bat"
Workbooks.OpenText Filename:="Chemin" & "\result.txt", Origin:=xlMSDOS, _
StartRow:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(10 _
, 1), Array(17, 1), Array(36, 1)), TrailingMinusNumbers:=True
End Sub

A+

Message édité par galopin01 le 21-09-2004 à 22:39:34

---------------
roger

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[vba] Liste des fichiers d'un sous-répertoire

Sujets relatifs
phpmyadmin: exportation gros fichiers	Afficher la liste des bases sur Oracle
ping auto d'une liste de PC (débutant)	liste des fichiers dans un répertoire
Liste des fichiers d'un repertoire	[windows] recuperer la liste des fichiers *.txt dans un repertoire
VB6 - Récupérer la liste des fichiers d'un répertoire donné	[PHP] Liste des fichiers d'un repertoire quelconque
[c++] liste des fichiers d'un repertoire	Comment extraire la liste des fichiers d'un répertoire en VB?
Plus de sujets relatifs à : [vba] Liste des fichiers d'un sous-répertoire

Page générée en 0.023 secondes