Comment lister le nom de plusieurs dossier sur un fichier excel

Le
malabar
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
malabar
Le #3736111
Merci pour vos reponses amicalement
Francisco
"JB"
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
J
Le #3735981
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




JB
Le #3735921
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
Wizard
Le #3688741
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
Wizard
Le #3688731
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
Publicité
Poster une réponse
Anonyme