ajout des noms de fichier d'un répertoire

4 réponses

Xavier POWAGA

27/01/2006 à 11:08

bonjour à tous,
voilà je souhaite obtenir automatiquement dans une colonne excel, la liste
des noms de fichiers se trouvant dans un répertoire donné.
par exemple si dans mon repertoire "c:\temp" j'ai les fichiers : info.doc ;
readme.txt je devrais en lançant ma macro obtenir par exemple dans la 1er
colonne : Info.doc en 1ere ligne et readme.txt en 2e

Avez vous une idée ? merci

4 réponses

Jacky

27/01/2006 à 11:18

Bonjour,
Ici
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/269c600b9d70cb26/fb396fc529343eb1?lnk=st&q=nombre+de+repertoire+excel&rnum=1&hl=fr#fb396fc529343eb1
Et là:
http://www.excelabo.net/moteurs/recherche.php
Mots Clefs=Repertoire

Il y a tout ce qu'il faut......
Salutations
JJ

"Xavier POWAGA" a écrit dans le message de
news:43d9f117$0$15361$

bonjour à tous,
voilà je souhaite obtenir automatiquement dans une colonne excel, la liste
des noms de fichiers se trouvant dans un répertoire donné.
par exemple si dans mon repertoire "c:temp" j'ai les fichiers : info.doc
;

readme.txt je devrais en lançant ma macro obtenir par exemple dans la 1er
colonne : Info.doc en 1ere ligne et readme.txt en 2e

Avez vous une idée ? merci

27/01/2006 à 11:44

Bonjour,

http://cjoint.com/?bBlN7Pur6n

Sub liste_fichiers()
Range("A2").Select
x = Dir("fiche*.xls") ' premier fichier commençant par fiche
Do While x <> ""
ActiveCell.Value = x
x = Dir() ' Fichier suivant
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Avec la longeur et la date:

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

ChDir ActiveWorkBook.path positionne dans le répertoire de
l'application:
ChDir "C:Temp" position dans Temp

Cordialement JB

Dédé

27/01/2006 à 11:49

Salut Xavier !

Tu trouvera sur le liens suivant un fichier qui devrait te combler ... :-)

http://www.excelabo.net/moteurs/compteclic.php?nom=rd-contenurepertoires

Salutations
Dédé

"Xavier POWAGA" a écrit dans le message de news:
43d9f117$0$15361$

bonjour à tous,
voilà je souhaite obtenir automatiquement dans une colonne excel, la liste
des noms de fichiers se trouvant dans un répertoire donné.
par exemple si dans mon repertoire "c:temp" j'ai les fichiers : info.doc
; readme.txt je devrais en lançant ma macro obtenir par exemple dans la
1er colonne : Info.doc en 1ere ligne et readme.txt en 2e

Avez vous une idée ? merci

Clément Marcotte

27/01/2006 à 18:13

Y a tout ça chez Frédéric Sigonneau.

"Xavier POWAGA" a écrit dans le message de news:
43d9f117$0$15361$

bonjour à tous,
voilà je souhaite obtenir automatiquement dans une colonne excel, la liste
des noms de fichiers se trouvant dans un répertoire donné.
par exemple si dans mon repertoire "c:temp" j'ai les fichiers : info.doc
; readme.txt je devrais en lançant ma macro obtenir par exemple dans la
1er colonne : Info.doc en 1ere ligne et readme.txt en 2e

Avez vous une idée ? merci

ajout des noms de fichier d'un répertoire

4 réponses

Veuillez sélectionner un problème