Imprimer une liste des fichiers d'un dossier

Résolu

Windows 10

Arthémise Messages postés 38 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 25 octobre 2014 - 20 mars 2009 à 19:51
Arthémise Messages postés 38 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 25 octobre 2014 - 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...

A voir également:

Comment imprimer la liste des fichiers d'un dossier
Liste déroulante excel - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Dossier appdata - Guide
Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows

3 réponses

Réponse 1 / 3

Arthémise Messages postés 38 Date d'inscription mardi 28 octobre 2008 Statut Membre Dernière intervention 25 octobre 2014 2
26 mars 2009 à 19:07

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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 953
21 mars 2009 à 01:52

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 mardi 28 octobre 2008 Statut Membre Dernière intervention 25 octobre 2014 2
25 mars 2009 à 19:59

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 jeudi 20 mars 2008 Statut Membre Dernière intervention 2 janvier 2025 961
25 mars 2009 à 21:36

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

comment imprimer le contenu d'un dossier sous windows 10 ?

Windows - Obtenir la liste des fichiers d'un dossier

Imprimer répertoire, s/répertoire, fichier

Copier l'arborescence des fichiers windows

Création automatique de dossiers à partir d'une liste dans Excel

imprimer une liste de fichiers

Votre réponse

Discussions similaires