Comment lister le nom de plusieurs dossier sur un fichier excel

Merci pour vos reponses amicalement
Francisco
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1147582029.541585.58250@u72g2000cwu.googlegroups.com...
Bonjour,

Liste des fichiers d'un répertoire:

Sub date_et_longueur()
Range("a2").Select
repertoire = "c:mes documents"
f = Dir(repertoire & "*.xls") ' premier fichier
Do While f <> ""
ActiveCell = f
ActiveCell.Offset(0, 1) = FileLen(repertoire & f)
ActiveCell.Offset(0, 2) = FileDateTime(repertoire & f)
f = Dir()
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement JB

Bonjour
s'il s'agit de classeurs Excel, avec cette proc (origine FS)tu auras
leur liste + le détail des feuilles.
cordialement
J@@

'******
'Lister les noms dans un classeur (nom de feuille et nom de classeur)

Sub ListeNomsClasseur()
'd'après Tom Ogilvy, mpep
Dim nm As Name
Worksheets.Add
'adapter avec le nom du classeur souhaité
For Each nm In Workbooks("NomDuClasseur.xls").Names
Set rng = Nothing
On Error Resume Next
Set rng = nm.RefersToRange
On Error GoTo 0
If Not rng Is Nothing Then
i = i + 1
Cells(i, 1).Value = nm.Name
Cells(i, 2).Value = rng.Parent.Name
Cells(i, 3).Value = nm.RefersToRange.Address(external:=True)
Else
i = i + 1
Cells(i, 1).Value = nm.Name
Cells(i, 2).Value = "Nom du classeur"
Cells(i, 3).Value = nm.RefersTo
End If
Next nm
Columns("A:C").AutoFit
End Sub
'*****

Bonjour tout le monde

Je cherche à lister un bon nombre de nom de dossier sur un fichier excel
mais je ne sais pas comment faire ?

Merci pour votre aide
Amicalement Francisco

Bonjour,

Liste des fichiers d'un répertoire:

Sub date_et_longueur()
Range("a2").Select
repertoire = "c:mes documents"
f = Dir(repertoire & "*.xls") ' premier fichier
Do While f <> ""
ActiveCell = f
ActiveCell.Offset(0, 1) = FileLen(repertoire & f)
ActiveCell.Offset(0, 2) = FileDateTime(repertoire & f)
f = Dir()
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement JB

Pour info, si tu connais le DOS, tu ouvres l'invite de commandes (dans
accessoires pour accèder au DOS) ensuite tu tapes dir avec toutes les
options dont tu as besoin (comme /s pour tous les sous-dossier) et en
fin tu met un ">" suivi d'un nom du fichier en .txt ensuite tu ouvres
le fichier avec Excel. (exemple dir *.xls /s > fich_xls.txt)

C'est un peu lourd mais pour ce qui connaisse le DOS ça permet de
faire des supers requêtes sans connaitre le VBA.

Cordialement Wizard

Pour info, si tu connais le DOS, tu ouvres l'invite de commandes (dans
accessoires pour accèder au DOS) ensuite tu tapes dir avec toutes les
options dont tu as besoin (comme /s pour tous les sous-dossier) et en
fin tu met un ">" suivi d'un nom du fichier en .txt ensuite tu ouvres
le fichier avec Excel. (exemple dir *.xls /s > fich_xls.txt)

C'est un peu lourd mais pour ce qui connaisse le DOS ça permet de
faire des supers requêtes sans connaitre le VBA.

Cordialement Wizard