Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liste des fichiers d'un dossier

Liste des fichiers d'un dossier

5 réponses
Avatar
Philippe
Bonsoir à tous

A votre avis est-il possible de faire apparaître sur une feuille excel la
liste des fichiers contenue dans un répertoire ?

Merci de votre réponse

Philippe
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Philippe,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza" ' a adapter
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
End Sub

isabelle


Bonsoir à tous

A votre avis est-il possible de faire apparaître sur une feuille excel la
liste des fichiers contenue dans un répertoire ?

Merci de votre réponse

Philippe




Avatar
LANIMAL
Bonjour
Il y a aussi le logiciel "PrintFolder" qui fait le job,
et qu'on peut télécharger gratuitement.
Une adresse :
http://ns7.telecharger.com/telecharger/windows/Utilitaire/imprimantes/fiches/8386.html
As-tu un avis sur la chose, Isabelle ?
Merci - LANIMAL

bonjour Philippe,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza" ' a adapter
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
End Sub

isabelle


Bonsoir à tous

A votre avis est-il possible de faire apparaître sur une feuille
excel la
liste des fichiers contenue dans un répertoire ?

Merci de votre réponse

Philippe






Avatar
JB
Bonjour,

Sub liste_fichiers()
Range("A2").Select
nf = Dir("fiche*.xls") ' premier fichier commençant par fiche
Do While x <> ""
ActiveCell.Value = nf
nf = Dir() ' Fichier suivant
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Avec la taille et la date:

Sub ListeFichiers()
Application.ScreenUpdating = False
Range("A2:E65000").ClearContents
ChDir ActiveWorkbook.Path
Range("A2").Select
nf = Dir("*.xls")
Do While nf <> ""
ActiveCell = nf
ActiveCell.Offset(0, 1) = FileDateTime(nf)
ActiveCell.Offset(0, 2) = FileLen(nf)
ActiveCell.Offset(0, 3) = GetAttr(nf)
If GetAttr(nf) And vbReadOnly Then ActiveCell.Offset(0, 4) =
ActiveCell.Offset(0, 4) & " Lect"
ActiveCell.Offset(1, 0).Select
nf = Dir
Loop
Range("A2").Select
End Sub

Avec le choix du répertoire:

Sub modif_jour()
Application.ScreenUpdating = False
Range("a2:d10000").ClearContents
ChDir ActiveWorkbook.Path
dossier = ChoixDossier()
If dossier = "" Then Exit Sub
Range("A2").Select
nf = Dir("*.xls")
Do While nf <> ""
ActiveCell = nf
ActiveCell.Offset(0, 1) = FileDateTime(nf)
ActiveCell.Offset(0, 2) = FileLen(nf)
ActiveCell.Offset(0, 3) = GetAttr(nf)
ActiveCell.Offset(1, 0).Select
nf = Dir
Loop
Range("A2").Select
End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & ""
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function

Cordialement JB
Avatar
isabelle
non, je ne le connaissais pas, mais je ne crois pas l'utiliser puisque je fais déjà tout ça sur excel.

isabelle


Bonjour
Il y a aussi le logiciel "PrintFolder" qui fait le job,
et qu'on peut télécharger gratuitement.
Une adresse :
http://ns7.telecharger.com/telecharger/windows/Utilitaire/imprimantes/fiches/8386.html

As-tu un avis sur la chose, Isabelle ?
Merci - LANIMAL


bonjour Philippe,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza" ' a adapter
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
End Sub

isabelle


Bonsoir à tous

A votre avis est-il possible de faire apparaître sur une feuille
excel la
liste des fichiers contenue dans un répertoire ?

Merci de votre réponse

Philippe








Avatar
Clément Marcotte
Le mien est bien meilleur, sauf que ne peux pas le vendre tout de suite;
question de subventions à venir...

Et puis le mien est en français.


"LANIMAL" a écrit dans le message de news:

Bonjour
Il y a aussi le logiciel "PrintFolder" qui fait le job,
et qu'on peut télécharger gratuitement.
Une adresse :
http://ns7.telecharger.com/telecharger/windows/Utilitaire/imprimantes/fiches/8386.html
As-tu un avis sur la chose, Isabelle ?
Merci - LANIMAL

bonjour Philippe,

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza" ' a adapter
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
End Sub

isabelle


Bonsoir à tous

A votre avis est-il possible de faire apparaître sur une feuille excel
la
liste des fichiers contenue dans un répertoire ?

Merci de votre réponse

Philippe