Extraire le nom de fichier dans un répertoire

Bonjour le forum,

Voici ce que je souhaite faire.

Dans un répertoire C:/Mes documents/Clichés/"fichiers".PDF

J'ai une certaine quantité de fichiers dont je souhaiterais extraire le nom dans une feuille Excel.

Mes fichiers sont avec des extensions .PDF et un exemple de fichier est :

07110015 010203.PDF

Merci d'avance pour votre aide.

Bonjour à tous,

Attention dans le chemin il faut des "\" et non des "/'

Voici une macro dont je n'ai pas noté l'auteur, à placer dans un module.

Sub ListFilesInFolder()
  Dim fso As Object
  Dim oSourceFolder As Object
  Dim oSubFolder As Object
  Dim oFile As Object
  Dim oFolder As Object
  Dim strFolderName As String
  Dim i As Long
    Set fso = CreateObject("Scripting.FileSystemObject")

    Columns("A:C").ClearContents
    Cells(1, 1).Value = "Parent folder"
    Cells(1, 2).Value = "File name"
    Cells(1, 3).Value = "File size"

   strFolderName = "C:\Mes documents\Clichés\" '***ton répertoire
    i = 2
  Set oSourceFolder = fso.GetFolder(strFolderName)
    For Each oFolder In oSourceFolder.SubFolders
        For Each oFile In oFolder.Files
            Cells(i, 1).Value = oFile.ParentFolder.Path
            Cells(i, 2).Value = oFile.Name
            Cells(i, 3).Value = oFile.Size
            i = i + 1
        Next oFile
    Next oFolder
    Columns("A:C").Columns.AutoFit
    Set fso = Nothing
    Set oSourceFolder = Nothing
End Sub

à tester

Amicalement

Claude.

Bonjour,

Merci pour le code mais il ne me sort rien.

Il inscrit juste les valeurs

Parent Folder en A1

FIle name en B1

File size en C1

et rien en dessous de chaque champ ci-dessus...

Bonjour

https://www.excel-pratique.com/~files/doc2/ljjQaRepertoire_indique.xls

Cordialement

re,

un autre code que je viens de tester avec des .xls

Sub ListeFichiers() 'liste les fichiers sans les sous-répertoires
Dim MyPath$, FName$, Mem$, i
    MyPath = "C:\Mes documents\Clichés\" 'chemin d'accès."
        FName = Dir(MyPath & "*.PDF")

    Do While FName <> ""
        [A65536].End(xlUp)(2) = FName
        [b65536].End(xlUp)(2) = FileDateTime(FName)
        FName = Dir
    Loop
End Sub

est-tu sur du chemin ?

mets-toi sur une feuille vierge

Claude

re,

Bonsoir Amadéus, j'avais pas vu ton message,

Ton code ne fonctionne pas sur ma version, il bogue au départ

Sub ListFile()
Dim i As Integer
    With Application.FileSearch

l'aide ne semble pas reconnaitre FileSearch, et comme l'anglais et moi ... je ne sais pas

corriger.

Bonne soirée

Claude.

Bonsoir,

FileSearch n'est plus reconnu par Excel2007..

Et Claude, dans ton code, tu ne testes que les sous-dossiers, et non le dossier principal...

Bonne soirée

dubois a écrit :

re,

un autre code que je viens de tester avec des .xls

Sub ListeFichiers() 'liste les fichiers sans les sous-répertoires
Dim MyPath$, FName$, Mem$, i
    MyPath = "C:\Mes documents\Clichés" 'chemin d'accès."
        FName = Dir(MyPath & "*.PDF")

    Do While FName <> ""
        [A65536].End(xlUp)(2) = FName
        [b65536].End(xlUp)(2) = FileDateTime(FName)
        FName = Dir
    Loop
End Sub

est-tu sur du chemin ?

mets-toi sur une feuille vierge

Claude

Ce code fonctionne parfaitement, merci beaucoup de votre aide précieuse.

Bonne soirée

Bonsoir

l'aide ne semble pas reconnaitre FileSearch,

Dèjà que je galère pour trouver des trucs auxquels je ne comprends rien, si en plus Crosoft s'amuse à modifier en cours de trajet, je ne suis pas prêt d'arriver au but..! Pas très correct ce truc.

Bonne soirée

re,

D'accord avec toi Amadéus.

Marky93, essaye de prendre le bon réflexe de solder les postes quand tu as ta réponse.

tu en a d'autres sans réponses, pas sympa çà !

Amicalement

Claude.

dubois a écrit :

re,

D'accord avec toi Amadéus.

Marky93, essaye de prendre le bon réflexe de solder les postes quand tu as ta réponse.

tu en a d'autres sans réponses, pas sympa çà !

Amicalement

Claude.

Oui excuse moi mais j'étais dans le train avec la carte 3G et plus de batterie, donc je n'ai pas pu clôturer le sujet.

Désolé pour le retard et merci pour l'aide sans faille des Forumeurs...