Discussion :

[goats]

Bonjour,

Je reçois plusieurs factures avec différentes colonnes en fichier Pdf.
Pour l'instant, je fais un copier coller et par le biais de différentes formules j'extrait les donnés nécessaires.

J'aimerais savoir si cela est possible de les tranférer mon fichier Pdf en fichier Excel et que les colonnes soit repecté.


Merci

[kiki29]

Salut, voir ici.

[goats]

Merci pour l'info!

Je trouve sa très interressant malgré que je soit débutant sur VBA.

Étant débutant je comprend pas vraiment ton code. Il est un peu trop pousser pour moi :p

J'en est essayer plusieurs mais sans jamais réussir a extracter un fichier Pdf.
Parfois un message disant "Un composant activeX ne peut pas creer d'objet"


Peux tu m'éclairer sur le code a choisir pour faire se que je cherche et/ou m'expliquer ce que message veut dire et comment regler le problème.

Merci

[goats]

Je voit le lien que vous voulez j'utilise.

Lorsque j'applique le code, je peux sélection mon fichier Pdf, mais après il me renvoie une erreur.

C'est écritType défini par l'utilisateur Non définie



et il me renvoie sur la ligne : Set oDO = New MSForms.DataObject

Et la partie New MSForms.DataObject est selectionner.


J'ai tu oublier de faire quelques choses?

Je ne trouve pas la référence Microsoft Forms 2.0 Object Library que vous demandez de cocher.


Merci d'avance pour vos réponses.

[kiki29]

Salut, tu crées un UserForm que tu supprimes aussitôt
ou Outils/Références/ parcourir pour atteindre c:\Windows\System32\FM20.DLL ( sous XP )

[goats]

Merci

Cela fonctionne très bien.

Cependant un autres message d'erreur de type
: Le composant ActiveX ne peut pas créer d'objet
et me renvoie a la ligne
Set PDDoc = CreateObject("AcroExch.PDDoc")

je renvoie le code utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
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
Dim ShTest As Worksheet
 
 
    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 & vbTab & 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

Je repete que je suis débutant en la matière alors merci beaucoup pour l'aide c'est très apprécier.

[kiki29]

Salut, il te faut Adobe Acrobat Professional ( payant ) et non pas le seul Acrobat Reader

[ioula76]

Salut, il te faut Adobe Acrobat Professional ( payant ) et non pas le seul Acrobat Reader

En effet, installer la version d'essai d'adobe acrobat CC pro suffit à régler le problème
https://acrobat.adobe.com/us/en/prod...at-pro-cc.html

Merci pour l'info