Microsoft 365 Extraire des champs particuliers d'un PDF dans Excel

[sj4555]

Bonjour à tous,

J'ai actuellement une macro me permettant de copier l'intégralité contenu d'un PDF sur mon classeur Excel, et le problème c'est que je n'ai aucune idée de comment affiner cette Macro pour qu'elle ne prenne que certains champs du fichier PDF,

Exemple: sur mon fichier PDF il y a un champs "date :" avec la date à côté, comment procéder pour copier uniquement le champs date avec EN PLUS la date se trouvant à côté

Voici ma macro :

Sub test()
Dim CheminEtTypeFichier As String, Fichier As String
Dim sFichier As String
Dim sAcro As String
 
    With Feuil1
        .Activate
        .Cells.Clear
    End With
 
'Variable à définir : Le chemin par défaut
CheminEtTypeFichier = "C:\Users"
 
Fichier = BrowseFile(CheminEtTypeFichier)
 
    If Fichier <> "" Then
        'MsgBox "Nom du fichier sélectionné : """
        sFichier = Split(Fichier, "")(UBound(Split(Fichier, "")))
        sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
 
        Shell sAcro, vbNormalFocus
 
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "^o"
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys sFichier
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "{ENTER}"
        Application.Wait (Now + TimeValue("0:00:02"))
 
        SendKeys "^a"
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "^c"
        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys "^q"
        Application.Wait (Now + TimeValue("0:00:02"))
 
        DoEvents
        With Feuil1
            .Range("A1").Select
            .Activate
            .Paste
        End With
    Else
        MsgBox "Aucune sélection a été effectuée."
    End If
End Sub
 
Function BrowseFile(CheminEtTypeFichier) As String
    With Application.FileDialog(msoFileDialogFilePicker)
        'Définit un titre pour la boîte de dialogue
        .Title = "Choisir le fichier"
        'Empêcher la multi-sélection
        .AllowMultiSelect = False
        'Répertoire par défaut suivi du type de fichier par défaut
        .InitialFileName = CheminEtTypeFichier
        'Efface les filtres existants.
        .Filters.Clear
        'Indique le type d'affichage dans la boîte de dialogue
        '(exemple visualisation des propriétés)
        .InitialView = msoFileDialogViewProperties
        'Affiche la boîte de dialogue
        .Show
        If .SelectedItems.Count > 0 Then
            BrowseFile = .SelectedItems(1)
        Else
            BrowseFile = ""
        End If
    End With
End Function

Merci

 

[kiki29]

Re, si ton fichier n'est pas un Formulaire ( tu as visiblement un pb de vocabulaire inapproprié ), va voir ici ou là via XPDF ainsi que :
Manipulation des fichiers en VBA
Manipuler les chaînes de caractères en VB6 et VBA Excel

 

[kiki29]

Re, suite et fin (?), bis repetita ...

• Télécharger 32 bits : xpdfbin-win-3.04-(1) ou 64 bits : xpdfbin-win-3.04-(2)
• Les décompresser via 7Zip
• Placer les applis Pdf2Txt_05_Fichiers.zip et Pdf2Txt_Clipboard_05.zip après dézippage dans un dossier
• Y mettre également l'exécutable pdftotext.exe qui extraira le texte dans un sous dossier ou dans une feuille excel

Cela n'exclut pas de

• Lire 1 et 2 pour certains détails

 

[kiki29]

Salut, un échantillon de ton pdf ( sans données confidentielles ) aiderait à poursuivre la manip.