Division pdf macro VBA

Question

Je souhaiterais pouvoir récupérer un fichier PDF qui contient plusieurs pages et les diviser page par page dans un autre dossier J'ai trouvé une macro mais qui ne fonctionne pas si quelqu'un pourrais m'aider car en VBA je suis débutant. En PJ j'ai mis la macro il y a une erreur que j'ai mis en jaune L'idée c'est de prendre un fichier qui a plusieurs PDF dedans et en faire plusieurs fichiers exemple un fichier de 10 pages alors 10 fichiers d'une page. Merci d'avance pour vos idées et conseils...

Abderrahmane BENALI · Answer

Bonjour,

Cela nécessite une installation d'Adobe Acrobat (pas seulement le Reader) sur l'ordinateur où ce code est exécuté.
Un exemple de code que vous pourrez tester :

Sub DiviserPDF()

    Dim Chemin As String
    Dim NomFichier As String
    Dim CheminSortie As String
    Dim NbPages As Integer
    Dim i As Integer

    ' Spécifiez le chemin et le nom du fichier PDF que vous souhaitez diviser
    Chemin = "C:\Users\apruvost\OneDrive - TEST\Bureau\DIVISION PDF MACRO\ENTRE\"
    NomFichier = "TEST.pdf"

    ' Spécifiez le chemin où vous souhaitez enregistrer les fichiers PDF divisés
    CheminSortie = "C:\Users\apruvost\OneDrive - TEST\Bureau\DIVISION PDF MACRO\SORTI\"

    ' Ouvrez le fichier PDF à diviser
    Set oDoc = CreateObject("AcroExch.PDDoc")
    oDoc.Open Chemin & NomFichier

    ' Récupérez le nombre de pages du fichier PDF
    NbPages = oDoc.GetNumPages

    ' Divisez le fichier PDF en plusieurs fichiers PDF individuels
    For i = 0 To NbPages - 1
        Set oNewDoc = CreateObject("AcroExch.PDDoc")
        oNewDoc.Create
        oNewDoc.InsertPages -1, oDoc, i, 1, 0
        oNewDoc.Save 1, CheminSortie & "page_" & i + 1 & ".pdf"
        oNewDoc.Close
    Next i
    ' Fermez le fichier PDF d'origine
    oDoc.Close

End Sub

Abderrahmane BENALI · Answer

Adobe Reader ne dispose pas des fonctionnalités nécessaires pour manipuler les fichiers PDF de cette manière. Adobe Acrobat est nécessaire pour cela...