Discussion :

[bakounine]

Bonjour ,

J'ai un répertoire (C:\Xxxx) contenant plusieurs milliers de documents Word

Aa.doc
Bb.docx
Cc.doc

etc ....

J'aimerai récupérer les noms de ces documents dans une colonne Excel , soit

Colonne A

Aa
Bb
Cc

etc ....

Je n'ose pas demander en plus des renseignements complémentaires (Taille du fichier , date de création ...) car là , ce serait Byzance et vous avez forcément autre chose à faire.....

Par contre , la liste de noms des documents en colonne A serait génial !

Pouvez-vous m'aider ?

D'avance , merci

Bakounine

[Menhir]

J'aimerai récupérer les noms de ces documents dans une colonne Excel

https://msdn.microsoft.com/fr-fr/lib.../gg278779.aspx

Je n'ose pas demander en plus des renseignements complémentaires (Taille du fichier , date de création ...)

https://msdn.microsoft.com/fr-fr/lib.../gg264782.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg278429.aspx

ou bien

https://msdn.microsoft.com/fr-fr/lib.../gg251349.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264090.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg251660.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg278659.aspx

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ListeFichiers()
  racine = ChoixDossier()     ' ou un répertoire C:\xxx e.g.
  If racine = "" Then Exit Sub
  Range("a4:D10000").ClearContents
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier = fs.getfolder(racine) 'DossierRacine
  ligne = 3
   Cells(1, 1) = dossier.Name & "[" & dossier.Path & "]"
   Cells(1, 1).Interior.ColorIndex = 36
   ligne = ligne + 1
   For Each f In dossier.Files
     Cells(ligne, 1) = f.Name
     Cells(ligne, 2) = f.Size
     Cells(ligne, 3) = f.Datecreated
     Cells(ligne, 4) = f.DatelastModified
    'Cells(ligne, 5) = f.Attributes
     If f.Attributes And vbHidden Then Cells(ligne, 5) = "Caché"
     ligne = ligne + 1
   Next
End Sub

Boisgontier
http://boisgontierjacques.free.fr

[bakounine]

Bonjour ,

Merci Menhir pour toutes ces documentations que je lirai , bien sur.
Même si je comprends individuellement toutes ces options , je ne savais pas comment les utiliser.

Il me manquait la "trame" (Et la boucle qui va bien).

Donc merci Jacques pour ton exemple de code que je vais d'abord essayer de comprendre complètement puis , éventuellement , adapter avec les paramètres fournis par Menhnir.

Merci à vous deux

Bakounine

[kiki29]

Salut, voir Liste des fichiers d'un dossier : Win 32/64 Bits : Liste les fichiers d'un dossier avec recherche récursive ou non via les APIs ( Liste 19322 fichiers en 0.741 s )
Une autre possibilité via Liste des propriétés de fichiers qui est personnalisable très facilement.

[bakounine]

Bonjour ,

Bon .... ben .... pas mal de lecture pour moi ce soir...

Merci kiki29

Jacques , j'ai commencé à adapter ton code , ca marche nickel !

Merci à tous

Bakounine