XL 2016 Macro pour convertir .PDF en .XLSX

Sub CompteNombreDeLigne()
DernierCar = ActiveDocument.Paragraphs(5).Range.End 'position du dernier caractère du paragraphe 5
ActiveDocument.Paragraphs(5).Range.Select

Selection.HomeKey Unit:=wdLine, Extend:=wdMove ' on se positionne au début de la première ligne
Selection.EndOf Unit:=wdLine, Extend:=wdMove ' on se positionne à la fin de la première ligne

nbLignes = 1
Do Until Selection.End = DernierCar - 1 'on se déplace de fin de ligne en fin de ligne tant que l'on a pas atteint le dernier caractère du paragraphe
Selection.MoveDown Unit:=wdLine, count:=1, Extend:=wdMove
nbLignes = nbLignes + 1 ' on incrémente le compte de lignes
Loop

MsgBox "Nb de ligne du paragraphe 5 : " & nbLignes

End Sub

    MsgBox ("Le pargraphe 5 comporte " & ActiveDocument.Paragraphs(5).Range.ComputeStatistics(wdStatisticLines) & " Lignes")

Sub AfficheUneLigneDeParagraphe()
    NoPage = 1
    NoParagraphe = 5
    NoLigne = 4
    MsgBox ActiveWindow.ActivePane.Pages(NoPage).Rectangles(NoParagraphe).Lines(NoLigne).Range.Text
End Sub

Sub AfficheUneLigneDeParagraphe()
    Dim Wapp As Object, WdoC As Object, para As Object, line
    Dim NoPage&, NoParagraphe&, NoLigne&, win&
    
    NoPage = 1
    NoParagraphe = 8
    NoLigne = 2
    win = 1
    
    Set Wapp = CreateObject("Word.Application")
    Wapp.Visible = False    'facultatif

    ' Ouvrir le document Word
    Set WdoC = Wapp.Documents.Open("C:\Users\patricktoulon\Desktop\word test.docx")

    MsgBox Wapp.Windows(win).ActivePane.Pages(NoPage).Rectangles(NoParagraphe).Lines(NoLigne).Range.Text

    'fermer le document et l'application word
    WdoC.Close False: Wapp.Quit

End Sub

Sub lire_All_paragraphs_RowByRow()
    Dim Wapp As Object, WdoC As Object, para As Object, line
    Dim NoPage&, NoParagraphe&, NoLigne&, win&, L&, p&

    NoPage = 1
    win = 1

    Set Wapp = CreateObject("Word.Application")
    Wapp.Visible = True    'facultatif

    ' Ouvrir le document Word
    Set WdoC = Wapp.Documents.Open("C:\Users\patricktoulon\Desktop\word test.docx")

    For p = 1 To WdoC.Paragraphs.Count
        Debug.Print "paragraphes (" & p & ")"

        With Wapp.Windows(win).ActivePane.Pages(NoPage).Rectangles(p)
            For L = 1 To .Lines.Count
                Debug.Print "ligne(" & L & ")"

                Debug.Print .Lines(L).Range.Text
            Next
        End With
        Debug.Print "****************************************"
    Next

    'fermer le document et l'application word
    WdoC.Close False: Wapp.Quit

End Sub

Option Explicit
Sub ParcourirParagraphes()
' Déclaration des variables (Boucle)
  Dim wdDoc As Document
  Dim wdParagraphe As Paragraph
    Set wdDoc = ActiveDocument
' Déclaration des variables (Ligne Par Ligne)
  Dim wdNbLignesParagph As Integer
  Dim wdLigneIndex As Byte            ' Index de la ligne dans le paragraphe
  Dim wdtexteLigne As String          ' Texte de la ligne sélectionnée
' Déclaration des variables (Tableau)
  Dim wdTbl As Table
  Dim wdCel As Cell

' Déplacer la sélection au début du document
    Selection.HomeKey wdStory

' Parcourir chaque paragraphe dans le document actif
    For Each wdParagraphe In wdDoc.Paragraphs
        ' Vérifier si le paragraphe n'est pas vide
            If Len(wdParagraphe.Range.Text) > 1 Then
                ' Sélectionner le paragraphe
                    wdParagraphe.Range.Select
                ' Calculer le nombre de lignes dans le paragraphe
                    wdNbLignesParagph = wdParagraphe.Range.ComputeStatistics(wdStatisticLines)
                    ' Test si le Paragraphes est (une ou un ensembles de lignes) OU (Un tableau)
                        If wdParagraphe.Range.Information(wdWithInTable) Then
                            ' Vérifier si la cellule n'est pas dans un tableau
                            If wdParagraphe.Range.Cells.Count > 0 Then
                                'Debug.Print "Ce paragraphe est dans un tableau."
                                'wdParagraphe.Range.Select
                                Set wdTbl = wdParagraphe.Range.Tables.Item(1)
                                Set wdCel = wdParagraphe.Range.Cells(1)
                                ' Vérifier si la cellule est la premiére cellule du tableau
                                   If wdCel.RowIndex = 1 And wdCel.ColumnIndex = 1 Then
                                        wdTbl.Select
                                        Debug.Print wdTbl.Cell(wdCel.RowIndex, wdCel.ColumnIndex).Range.Text
                                   Else
                                        'Debug.Print "La cellule sélectionnée n'est pas la cellule ligne 1 colonne 1"
                                        'Debug.Print "La cellule sélectionnée est la cellule ligne " & wdCel.RowIndex & "  de la colonne " & wdCel.ColumnIndex
                                        wdTbl.Select
                                        Debug.Print wdTbl.Cell(wdCel.RowIndex, wdCel.ColumnIndex).Range.Text
                                  End If
                            End If
                        Else
                            'wdParagraphe.Range.Select
                            'Debug.Print "Ce paragraphe n'est pas dans un tableau."
                            ' Si le paragraphe a une seule ligne
                                If wdNbLignesParagph = 1 Then
                                  ' Déplacer la sélection au début de la ligne
                                    Selection.MoveLeft wdCharacter, 1
                                  ' Étendre la sélection jusqu'à la fin de la ligne et récupérer le texte
                                    Selection.EndKey wdLine, wdExtend
                                    wdtexteLigne = Selection.Text
                                  ' Afficher le texte de la ligne dans la fenêtre de débogage
                                    Debug.Print wdtexteLigne
                                Else
                                  ' Si le paragraphe contient plusieurs lignes
                                  ' Parcourir chaque ligne dans le paragraphe
                                    For wdLigneIndex = 1 To wdNbLignesParagph
                                      ' Sélectionner la ligne
                                      ' Si c'est la première ligne, déplacer la sélection au début de la ligne
                                        If wdLigneIndex = 1 Then
                                            Selection.MoveLeft wdCharacter, 1
                                        End If
                                      ' Étendre la sélection jusqu'à la fin de la ligne
                                        Selection.EndKey wdLine, wdExtend
                                      ' Récupérer le texte de la ligne sélectionnée
                                        wdtexteLigne = Selection.Text
                                      ' Afficher le texte de la ligne dans la fenêtre de débogage
                                        Debug.Print wdtexteLigne
                                      ' Si ce n'est pas la dernière ligne, déplacer la sélection à la ligne suivante
                                        If wdLigneIndex <> wdNbLignesParagph Then
                                            Selection.MoveRight wdCharacter, 1
                                        End If
                                    Next wdLigneIndex
                            End If
                    End If
            End If
    Next wdParagraphe
End Sub

option Explicit
sub convert_pdf_doc
'
  Dim aApp as Acrobat.AcroApp
  Dim av_doc as CAcroAVDoc
  Dim pdf_doc as CAcroPDDoc
  Dim jso_obj as Object
'
  Dim sfile as string
  dim dfile as string
  dim ext as string
'
        ext = "doc" ' Format du fichier créer a enregistré sous ("doc" Ou "xlsx" Ou "html")
'    
        sfile = "D:\Chemin\Fichier.pdf"  ' Ici écrire : Chemin complet + Nom Fichier + Extension
        dfile = Replace(sfile, ".pdf", "." & ext,1)
'
    set aApp = CreateObject("AcroExch.App")
    Set av_doc = CreateObject("AcroExch.AVDoc")
'
        if av_doc.Open(sfile, vbNull) = True then
            set pdf_doc = av_doc.getPDDoc
            set jso_obj = pdf_doc.GetJSObject
       
                jso_obj.SaveAs dfile, "com.adobe.acrobat." & ext
        end if
'
    av_doc.Close false
    aApp.Exit
    Set aApp = Nothing
    set jso_obj = Nothing
    set pdf_doc = Nothing
    set av_doc = Nothing
End Sub