Liste des fichier et sous-répertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Liste des fichier et sous-répertoire

jr10

Pourvu qu'on y arrive ...

Bonjour,

Sur Excel, je cherche à afficher les sous-répertoires et fichiers qu'ils contiennent.

Quelle commande dois-je utiliser

- la commande DIR ?
- les searchfiles ?

Merci pour une info.

Cordialement

JR10

Publicité

galopin01

bonjour,
Pourquoi ?

Une piste :

Sub Test()
Application.Dialogs(xlDialogOpen).Show
End Sub

A+

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

jr10

Pourvu qu'on y arrive ...

D'accord mais ensuite
Je veux copier les sous-répertoires et fichiers
dans une feuille Excel

Merci de cette réponse

Lord Nelson

Salut,

Voici un exemple d'utilisation de la fonction Dir pour extraire des noms de fichiers :

Sub Fichiers()
Dim Temp As String, Ligne As Integer, Colonne As Integer
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
Temp = Dir("D:\HC\Excel\*.xls", vbNormal)
Do
If Temp = "" Then
Exit Do
Else
Cells(Ligne, Colonne) = Temp
Ligne = Ligne + 1
End If
Temp = Dir
Loop
'Tri alphabétique
Range(ActiveCell.Address & ":" & Cells(Ligne - 1, Colonne).Address).Select

Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Et un second pour les répertoires :

Sub SousRep()
Dim Temp As String, Ligne As Integer, Colonne As Integer
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
Temp = Dir("D:\HC\*.", vbDirectory)
Do
If Temp = "" Then
Exit Do
ElseIf Temp = "." Or Temp = ".." Then
'Ne rien afficher
Else
Cells(Ligne, Colonne) = Temp
Ligne = Ligne + 1
End If
Temp = Dir
Loop
'Tri alphabétique
Range(ActiveCell.Address & ":" & Cells(Ligne - 1, Colonne).Address).Select

Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

---------------
A+

luminilux

Pour une recherche récursive dans tous les niveaux de sous dossiers tu peux voir avec les API « FindSearch, FindNext, FindClose » (les trois s'utilisent ensemble)
Voir sur MSDN pour les détails des paramètres à passer

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Liste des fichier et sous-répertoire

Sujets relatifs
Liste fichier repertoire distant	Applet ou JS¨P de choix d'un fichier
logiciels de recherche de fichier	probleme avec une liste déroulante...[resolu]
Récupération de variable à partir d'un fichier .txt	Acceder au nom de l'element d'une liste multiple
Remplacer une string dans un fichier	Récupérer dynamiquement le schéma associé à un fichier XML
Script qui permet d'afficher une liste de fichier d'un répertoire
Plus de sujets relatifs à : Liste des fichier et sous-répertoire

Page générée en 0.064 secondes