Imprimer une liste des fichiers d'un dossier

Résolu

Windows 10

Arthémise Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Arthémise Messages postés 38 Date d'inscription Statut Membre Dernière intervention - 26 mars 2009 à 19:07

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...

Afficher la suite

A voir également:

Imprimer une liste de dossiers dans windows
Liste déroulante excel - Guide
Clé de produit windows 10 gratuit - Guide
Montage video windows - Guide
Windows ne démarre pas - Guide
Comment imprimer en a5 - Guide

3 réponses

Réponse 1 / 3

Arthémise Messages postés 38 Date d'inscription Statut Membre Dernière intervention 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...

Réponse 2 / 3

Mytå Messages postés 2973 Date d'inscription Statut Contributeur Dernière intervention 954

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å

Réponse 3 / 3

Arthémise Messages postés 38 Date d'inscription Statut Membre Dernière intervention 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...

OOoForum Messages postés 3873 Date d'inscription Statut Membre Dernière intervention 961

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

Discussions similaires

Combien de temps va durer la défragmentation

supprimer icône de la barre des tâches

Disque dur externe IOMEGA non reconnu

imprimante hp photosmart c4480

compatibilité lapin malin

return castle wolfenstein PC

Votre réponse

Discussions similaires