Imprimer une liste des fichiers d'un dossier [Résolu/Fermé]
Signaler
Arthémise
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
A voir également:
- Imprimer arborescence dossier windows 10
- Imprimer la liste des fichiers d'un dossier sous windows 10 - Meilleures réponses
- Imprimer le contenu d'un dossier windows 10 - Meilleures réponses
- Comment imprimer le contenu d'un dossier sous windows 10 ? ✓ - Forum - Windows 10
- Imprimer répertoire, s/répertoire, fichier ✓ - Forum - Windows
- Imprimer une arborescence - Forum - Windows
- Comment créer et imprimer une liste de dossiers - Forum - Bureautique
- Imprimer une liste des fichiers d'un dossier ✓ - Forum - Bureautique
3 réponses
Mytå
- Messages postés
- 2966
- Date d'inscription
- mardi 20 janvier 2009
- Statut
- Contributeur
- Dernière intervention
- 20 décembre 2016
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å
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å
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
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...
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...
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
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...
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
- 3779
- Date d'inscription
- jeudi 20 mars 2008
- Statut
- Membre
- Dernière intervention
- 24 février 2021
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
Voici une macro pour OpenOffice.org : https://forum.openoffice.org/fr/forum/ftopic12031.html