convertir titre fichier PDF dans un classeur excel

[Msouami33]

Bonjour,

J'ai un dossier ou se trouve une multitude de fichier pdf dont les titre ressemble à "RG896KL", et j'aimerais pouvoir les mettre tous à la suite ligne par ligne dans un tableau excel. Est ce que cela est possible? merci d'avance

 

[fanch55]

Bonjour,
vous pouvez vous inspirer de cela :

Public PdfFile
Sub test()
    If ScanFolder("D:\....\.....", "*.pdf", , True) > 0 Then ' Dossier,Fichier,,avec les sous-dossier
        [B8].Resize(PdfFile.Count) = WorksheetFunction.Transpose(PdfFile.Items)
        [C8].Resize(PdfFile.Count) = WorksheetFunction.Transpose(PdfFile.keys)
    Else
        MsgBox "Dossier ou fichier non trouvé"
    End If
End Sub
Function ScanFolder(Dossier, SearchFor, Optional Vider As Boolean = True, Optional SubDir As Boolean = False) As Long
Dim Items As Object

    If Right(Dossier, 1) <> "\" Then Dossier = Dossier & "\"
    If Vider Then Set PdfFile = CreateObject("Scripting.Dictionary")

'   Récupération des fichiers
    On Error GoTo Exit_Sub
    Set Items = CreateObject("Shell.Application").Namespace(Dossier).Items
    Items.Filter 64, SearchFor
    For Each File In Items
        PdfFile.Add Dossier & File, File
    Next
    If SubDir Then
    '   scan récursif des sous-dossiers
        Set Items = CreateObject("Shell.Application").Namespace(Dossier).Items
        Items.Filter 32, "*"
        For Each sDossier In Items
            ' Attention, les fichiers compressés sont considérés comme des dossiers
            If Not sDossier.Type Like "*compress*" Then ScanFolder Dossier & sDossier, SearchFor, False
        Next
    End If
    
Exit_Sub:

    ScanFolder = PdfFile.Count
  
End Function

 

[Etoto]

Bonjour,

Vous pouvez faire une requête Power Query à partir d'un dossier. Elle prendra tous les fichiers du dossier et en fera un tableau, après, il suffit de trier et filtrer.

Je me suis amusé une fois à faire cela sur mon dossier utilisateur, plusieurs milliers de lignes 😅😎.

 

[Msouami33]

Bonjour,
vous pouvez vous inspirer de cela :

Public PdfFile
Sub test()
    If ScanFolder("D:\....\.....", "*.pdf", , True) > 0 Then ' Dossier,Fichier,,avec les sous-dossier
        [B8].Resize(PdfFile.Count) = WorksheetFunction.Transpose(PdfFile.Items)
        [C8].Resize(PdfFile.Count) = WorksheetFunction.Transpose(PdfFile.keys)
    Else
        MsgBox "Dossier ou fichier non trouvé"
    End If
End Sub
Function ScanFolder(Dossier, SearchFor, Optional Vider As Boolean = True, Optional SubDir As Boolean = False) As Long
Dim Items As Object

    If Right(Dossier, 1) <> "\" Then Dossier = Dossier & "\"
    If Vider Then Set PdfFile = CreateObject("Scripting.Dictionary")

'   Récupération des fichiers
    On Error GoTo Exit_Sub
    Set Items = CreateObject("Shell.Application").Namespace(Dossier).Items
    Items.Filter 64, SearchFor
    For Each File In Items
        PdfFile.Add Dossier & File, File
    Next
    If SubDir Then
    '   scan récursif des sous-dossiers
        Set Items = CreateObject("Shell.Application").Namespace(Dossier).Items
        Items.Filter 32, "*"
        For Each sDossier In Items
            ' Attention, les fichiers compressés sont considérés comme des dossiers
            If Not sDossier.Type Like "*compress*" Then ScanFolder Dossier & sDossier, SearchFor, False
        Next
    End If
   
Exit_Sub:

    ScanFolder = PdfFile.Count
 
End Function

 

[Msouami33]

merci beaucoup

 

[kiki29]

Salut, à voir si curieux.

 

[fanch55]

Salut, à voir si curieux.

@kiki29, intéressant coté performance .
Pas pensé à faire une recherche sur le mot clé arborescence 🤔