Bonjour Pierre, merci pour ta réponse. J'ai bien essayé de passer par ton code mais je n'arrive pas à récupérer les attributs dates et répertoire parent ainsi que le chemin complet puisque là je récupère uniquement le nom fichier. De même comment faire pour aprés revider dans une table stp. Je te remercie.

Cordialement

Carole

Rebonsoir 3stone,

désolée mais mon niveau reste tout de même trop faible pour extraire un code plus personalisé. Car j'ai un dossier A sous lequel j'ai des fichiers (word excel, pdf ...) et des sous dossiers également (dossier 1 avec aprés fichier 1word, 1excel....; dossier 2 ...........)

donc des fichiers se retrouvent au même niveau que les sous dossiers. Comment faire pour que les fichiers des sous dossiers soient récupéré également et comment vider ces infos dans des champs d'une table.

Merci si tu trouves du temps et encore de l'energie pour me répondre. Je continue à faire des essais mais il me manque toujours l'étincelle! A +

Opium

rerebonjour,

j'ai trouvé youpi

c'était pas trés loin de ton code et je te remercie pour le temps passé à essayer d'instruire les ignare comme moi. Encore merci 3stone et bonne continuation à ce site super!

Dim FSO As Scripting.FileSystemObject
Dim srcFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim sFL As String
Dim sFlt As String
Dim sfrep As String

Const cnFolder As Long = 16
Set FSO = New Scripting.FileSystemObject
Set srcFolder = FSO.GetFolder(SourceDir) '
'// boucle sur la liste des fichiers
For Each FileItem In srcFolder.Files
'sFL = IIf(sFL = "", FileItem.Path, sFL & ";" & FileItem.Path)
sFL = (FileItem.Path)
sFlt = FileItem.DateLastModified
sfrep = Mid(FileItem.ParentFolder, 24, 30)
Dim odb As DAO.Database
    Set odb = CurrentDb
    Set orst = odb.OpenRecordset("adressage", dbOpenTable)
    orst.AddNew
 
        orst.Fields("adressage").Value = sFL
        orst.Fields("datecrea").Value = sFlt
        If sfrep = "" Then
        sfrep = "général"
        Else: sfrep = Mid(FileItem.ParentFolder, 24, 30)
        End If
        orst.Fields("nom secteur").Value = sfrep
        orst.Update

Next FileItem
'// boucle sur le répertoire - si requis
If SubDir Then
For Each SubFolder In srcFolder.SubFolders
If SubFolder.Attributes = cnFolder Then
fnListFiles SubFolder.Path, True
End If
Next SubFolder
End If
'// récupérer la liste de fichiers
fnListFiles = sFL
'// libération
Set srcFolder = Nothing
Set FSO = Nothing

End Function