Imprimer une liste des fichiers d'un dossier [Résolu/Fermé]

Signaler
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
-
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
-
Bonjour à tous,

Avec quelques fichiers, une copie écran fait l'affaire, mais avec une centaine de fichiers...

J'avais essayé REP-LISTING pour ce faire mais le choix des colonnes n'est pas répercuté à l'impression, pas plus que les caractères. J'ai posé la question au concepteur qui n'a pas daigné répondre...

Si quelqu'un à une méthode...
A voir également:

3 réponses

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
851
Salut le forum

Avec Excel, ensuite tu imprimes la feuille

Le code

'Liste des fichiers d'un répertoire
'John Walkenbach, mpep

Sub ListFiles()
' Which directory?
Directory = "c:\windows\desktop\"

' Insert new sheet & headers
r = 1
Worksheets.Add
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1

' Get the files
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.*"
.SearchSubFolders = False
.Execute
' Write the file info
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub

Mytå
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
2
Bonsoir,

Merci pour la réponse à mon problème. Je ne suis pas un lion en informatique et, de plus, si j'avais bien en main (à peu près !) la suite Microsoft, je suis passé à Open Office 3 et je patauge un peu n'y retrouvant pas mes marques. Mais ça va venir...
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
2
Bonjour,

Merci mais je n'ai rien compris !

Je n'utilise pas Excel. J'avais WORKS Suite avec le tableur Work mais je suis passé maintenant sous la suite Open Office 3 avec Writer, Calc, etc...
Messages postés
3779
Date d'inscription
jeudi 20 mars 2008
Statut
Membre
Dernière intervention
24 février 2021
945
Les macros de MS-Excel ne sont pas lisibles par Calc et inversement.
Voici une macro pour OpenOffice.org : https://forum.openoffice.org/fr/forum/ftopic12031.html