Comment compter le nombre de pages dans des fichiers PDF à l'aide d'Excel ?

Si vous avez plusieurs fichiers PDF dans un dossier et que vous devez lister leurs noms de fichiers ainsi que le nombre de pages dans Excel, vous pouvez facilement le faire avec une simple macro VBA. Ce tutoriel vous guidera à travers les étapes pour extraire et afficher rapidement les noms des fichiers PDF et leurs numéros de page correspondants dans une feuille de calcul Excel.

Afficher les noms des fichiers PDF et les numéros de page dans Excel avec VBA

Afficher les noms des fichiers PDF et les numéros de page dans Excel avec VBA

Le code VBA suivant peut vous aider à afficher tous les noms de fichiers PDF et leurs numéros de page dans une feuille de calcul. Veuillez suivre ces étapes :

1. Ouvrez une feuille de calcul où vous souhaitez obtenir les fichiers PDF et les numéros de page.

2. Maintenez les touches "ALT" + "F11" enfoncées, et une fenêtre "Microsoft Visual Basic for Applications" s'ouvre.

3. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la fenêtre "Module".

Code VBA : Liste de tous les noms de fichiers PDF et numéros de page dans la feuille de calcul :

Sub Test()
    Dim I As Long
    Dim xRg As Range
    Dim xStr As String
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Dim xFileNum As Long
    Dim RegExp As Object
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
        Set xRg = Range("A1")
        Range("A:B").ClearContents
        Range("A1:B1").Font.Bold = True
        xRg = "File Name"
        xRg.Offset(0, 1) = "Pages"
        I = 2
        xStr = ""
        Do While xFileName <> ""
            Cells(I, 1) = xFileName
            Set RegExp = CreateObject("VBscript.RegExp")
            RegExp.Global = True
            RegExp.Pattern = "/Type\s*/Page[^s]"
            xFileNum = FreeFile
            Open (xFdItem & xFileName) For Binary As #xFileNum
                xStr = Space(LOF(xFileNum))
                Get #xFileNum, , xStr
            Close #xFileNum
            Cells(I, 2) = RegExp.Execute(xStr).Count
            I = I + 1
            xFileName = Dir
        Loop
        Columns("A:B").AutoFit
    End If
End Sub

4. Après avoir collé le code, appuyez sur la touche "F5" pour exécuter ce code, et une fenêtre "Parcourir" apparaît. Veuillez sélectionner le dossier contenant les fichiers PDF dont vous souhaitez lister et compter les pages, voir capture d'écran :

5. Ensuite, cliquez sur le bouton "OK", tous les noms de fichiers PDF et numéros de page sont listés dans la feuille de calcul actuelle, voir capture d'écran :