Sujet Précédent Sujet Suivant

Transfer de données pdf vers excel

Fermé
yannick2638 Messages postés 5 Date d'inscription samedi 14 avril 2018 Statut Membre Dernière intervention 1 mars 2021 - 11 nov. 2019 à 09:09
yannick2638 Messages postés 5 Date d'inscription samedi 14 avril 2018 Statut Membre Dernière intervention 1 mars 2021 - 11 nov. 2019 à 13:20
Bonjour,

je souhaite récupérer des données d'un fichier pdf (tableau) vers une feuille excel.

j'ai trouver ce code :

Option Explicit

Sub SelectionFichier2()
Dim FD As FileDialog

Set FD = Application.FileDialog(msoFileDialogFilePicker)
With FD
.InitialFileName = ThisWorkbook.Path
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "PDF", "*.pdf", 1
.ButtonName = "Ouvrir fichier"
.Title = "Sélectionner un fichier PDF"
End With

If FD.Show = True Then Lire2 FD.SelectedItems(1)

Set FD = Nothing
End Sub

' Cocher Reference : Microsoft Forms 2.0 Object Library
Sub Lire2(sFichier As String)
Dim PDDoc As Object
Dim PDPage As Object
Dim PDText As Object
Dim TextSelt As Object
Dim Rep As Long
Dim i As Long, j As Long
Dim wkPage As Long
Dim wkCnt As Long
Dim wkText As String
Dim FName As String
Dim oDO As Object

FName = sFichier
Set PDDoc = CreateObject("AcroExch.PDDoc")
Rep = PDDoc.Open(FName)

Set TextSelt = CreateObject("AcroExCh.HiliteList")
TextSelt.Add 0, 32767

wkPage = PDDoc.GetNumPages()
For i = 0 To wkPage - 1
Set PDPage = PDDoc.AcquirePage(i)
Set PDText = PDPage.CreatePageHilite(TextSelt)
wkCnt = PDText.GetNumText()
For j = 0 To wkCnt - 1
wkText = wkText & PDText.GetText(j)
Next j
Next i
PDDoc.Close

Set PDPage = Nothing
Set PDText = Nothing

Set oDO = New MSForms.DataObject
oDO.Clear
oDO.SetText wkText
oDO.PutInClipboard

Application.ScreenUpdating = False
ShTest.Cells.Clear
ShTest.Range("A1").PasteSpecial

Set oDO = Nothing
Set TextSelt = Nothing
Set PDDoc = Nothing

ShTest.Range("H1").Select
Application.ScreenUpdating = True
End Sub

celui beugue

j'ai un message erreur de compilation : qualificateur incorrect

merci pour votre aide


Configuration: Windows / Firefox 70.0
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 11 nov. 2019 à 13:00
Bonjour,

essaie cela: 

Option Explicit
Dim fileToOpen As Variant
Dim nom As String
Dim position As Integer
Dim longueur As Integer
Sub method1_copy_data_from_pdf()
fileToOpen = Application _
 .GetOpenFilename("PDF Files (*.pdf), *.pdf")
If fileToOpen <> False Then
End If
OuvertureDeFichier
longueur = Len(fileToOpen)
position = longueur - InStrRev(fileToOpen, "\", -1, 1)
nom = Right(fileToOpen, position)
nom = Replace(nom, ".pdf", ".xlsx")

' wait 2 secs
Application.Wait Now + TimeValue("00:00:2")

'send key to select all text
SendKeys "^a", True

' wait 2 secs
Application.Wait Now + TimeValue("00:00:2")

' send key to copy
SendKeys "^c"

' wait 2 secs
Application.Wait Now + TimeValue("00:00:2")
'création classeur
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom ' nom classeur
' activate this workbook
Windows(nom).Activate ' nom classeur
Range("a1").Select 'a adapter
ActiveSheet.Paste

' Activate notepad
'AppActivate task

' send key to close pdf file
SendKeys "^q"
MsgBox "L'import c'est bien effectué.", vbInformation, "Import PDF"
SendKeys "{NUMLOCK}" 'on remet le verrouillage numérique
End Sub
Sub OuvertureDeFichier()
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")
   
   MonFichier = fileToOpen     'à remplacer par votre fichier
   MonApplication.Open (MonFichier)
   
   Set MonApplication = Nothing
Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub



0
yannick2638 Messages postés 5 Date d'inscription samedi 14 avril 2018 Statut Membre Dernière intervention 1 mars 2021
11 nov. 2019 à 12:29
sa me mets un message d'erreur '1004'
erreur defini par l'application ou par l'objet
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 nov. 2019 à 13:06
un classeur exemple à télécharger:

https://www.cjoint.com/c/IKlmfOw8vvQ

@+ Le Pivert
0
yannick2638 Messages postés 5 Date d'inscription samedi 14 avril 2018 Statut Membre Dernière intervention 1 mars 2021
11 nov. 2019 à 13:20
sa fonctionne mais mes pdf son sous forme de tableau, du coup sa fait pas correctement .

voici un lien pour mon type de fichier : https://www.cjoint.com/c/IKlmsInHhzN
0

Discussions similaires

Extraction pdf vers Excel
romanza -
romanza -

8 réponses
Automatiser extraction et import de données depuis le web dans Excel
manolo67 -
sheldon_99 -

12 réponses
Création des slides PPT qui sont alimentés à partir d'Excel
pirhanas -
cs_Le Pivert -

3 réponses
extraire des donnees d'une base ACCESS
blaise -
Polux31 -

2 réponses
Exporter des données d'Access vers Excel
erwan51 -
ZINO -

13 réponses
"Publipostage" données excel vers PDF
Enaxor18 -
C-Claire -

3 réponses