XL 2016 Macro pour convertir .PDF en .XLSX

[saidoush]

Bonjour,

J'ai tenté de reproduire les instructions d'une video en vu de convertir via une macro un document .pdf en .xlsx.

Chez lui,... ça marche lol

les seules différence c'est que moi j'utilise Foxit et l'adresse du fichier...(forcément)

Merci pour votre aide!!!
et bon dimanche.


Option Explicit

Sub convert_pdf_doc()

Dim foxitApp As Object
Dim av_doc As Object
Dim pdf_doc As Object
Dim jso_obj As Object

Dim sfile As String
Dim dfile As String
Dim ext As String

ext = "xlsx"
sfile = "C:\Users\FAMILLE\Documents\devis dentaire.pdf"
dfile = Replace(sfile, ".pdf", "." & ext, 1)


Set foxitApp = CreateObject("FoxitPDFReader.Application")

Set av_doc = foxitApp.GetActiveDoc()

If Not av_doc Is Nothing Then

Set pdf_doc = av_doc.GetPDDoc()
Set jso_obj = pdf_doc.GetJSObject

jso_obj.SaveAs dfile, "com.foxitpdf.reader." & ext

av_doc.Close

End If

Set foxitApp = Nothing
Set av_doc = Nothing
Set pdf_doc = Nothing
Set jso_obj = Nothing

End Sub

 

[Staple1600]

Bonjour

Quelle video ?
Publie le lien vers celle-ci

 

[saidoush]

Bien sûr, j'ai hésité parce que c'est en anglais.

Bien à toi.

 

[Staple1600]

Re,

Si j'en crois la maison mère, Office 2016 sait ouvrir les PDFS

Opening PDFs in Word - Microsoft Support

Find out what parts of a PDF file will look correct and which won't when you open them in Word, and what to do about it.

support.microsoft.com

Notamment Word

Mais on peut avoir des surprises selon les PDF

Si tu arrives à ouvrir ton PDF dans Word, reste plus qu'à faire une macro pour le contenu du fichier Word dans un fichier Excel.

PS: Merci pour le lien
Cela fonctionne chez lui, car il dispose d'Adobe (et non pas d'Adobe Reader)

 

[Laurent78]

Bonjour,

On peut également utiliser Power Query pour ouvrir des pdf, et plus précisément des tables contenus dans les pdf.
Il faudrait connaitre le but recherché et avoir un exemple anonymisé d'un pdf.
@+

 

[saidoush]

Bonjour,

On peut également utiliser Power Query pour ouvrir des pdf, et plus précisément des tables contenus dans les pdf.

Ouiii bien-sûr...
Mais bien qu'ayant office 2016, cette option n'existe pas.

Il faudrait connaitre le but recherché et avoir un exemple anonymisé d'un pdf.
@+

Il n'y a aucun but précis simplement de créer une application maison.

 

[Staple1600]

Re, Bonjour @Laurent78

Mais bien qu'ayant office 2016, cette option n'existe pas.

C'est pour cela que je parlais d'ouvrir le PDF au préalable dans Word 2016
Lu sur le lien que j'ai posté dans le message#4

Opening PDFs in Word
Word for Microsoft 365 Word 2021 Word 2019 Word 2016 Word 2013

 

[saidoush]

Re, Bonjour @Laurent78


C'est pour cela que je parlais d'ouvrir le PDF au préalable dans Word 2016
Lu sur le lien que j'ai posté dans le message#4

Oui merci testé... mais pas concluant

 

[Laurent78]

Ouiii bien-sûr...
Mais bien qu'ayant office 2016, cette option n'existe pas.

Il n'y a aucun but précis simplement de créer une application maison.

Vous n'avez pas Power Query sur votre Excel 2016 ?

 

[Cousinhub]

Vous n'avez pas Power Query sur votre Excel 2016 ?

Bonjour Laurent,
L'import de fichiers Pdf via PQ n'est fonctionnel qu'à partir des versions 2021 ou 365.
Non disponible avant.
Bonne journée

 

[Staple1600]

@Laurent78
C'est à partir de 365 qu'on peut ouvrir les PDFS avec PQ, il me semble
(au boulot j'ai Office 2019, et je n'ai pas accès aux PDFS dans PQ)

Bing! Collision !
Salut @Cousinhub
Voila qui confirme ce qui me semblait

 

[saidoush]

Vous n'avez pas Power Query sur votre Excel 2016 ?

Power query, si...
Mais obtenir des données à partir d'un pdf, non...

 

[patricktoulon]

bonjour
c'est pas par ce que tu va mettre le nom de ton app pdf dans le createobject à la place de "acraexch.hiliteList" que ca va marcher
a ce jour j'ai pas connaissance que foxit ai crée un com pour vb ou vba
donc ça ne peut fonctionner

 

[Laurent78]

re,

De mémoire, n'ayant pas l'ouverture de pdf dans PQ dans Excel, j'étais passé par PowerBI desktop, qui lui le permettait, j'avais fait le "code" M pour ouvrir le(s) pdf(s) et ensuite j'avais copié le code dans une requête PQ d'Excel, cela avait fonctionné.
Je me demande si je suis clair ...

 

[saidoush]

bonjour
c'est pas par ce que tu va mettre le nom de ton app pdf dans le createobject à la place de "acraexch.hiliteList" que ca va marcher
a ce jour j'ai pas connaissance que foxit ai crée un com pour vb ou vba
donc ça ne peut fonctionner

J'ai trouvé ça : Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
> (ByVal hwnd As Long, ByVal lpOperation As String, _
> ByVal lpFile As String, ByVal lpParameters As String, _
> ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
>
> '---------------------------------
> Sub Ouvrir_Un_Fichier()
> Dim Fichier As String
> Fichier = "C:\Chemin complet\Mon_Fichier.pdf"
> If Dir(Fichier) <> "" Then
> ShellExecute 0, "open", Fichier, "", "", 0
> End If
> End Sub