XL 2016 Comment récupérer en format excel un ticket de caisse supermarché ?

[jpm_neuf]

Bonjour,
Je souhaiterais récupérer mes tickets de caisse format PDF en fichier Excel avec par exemple des colonnes :

• Date achat
• Nom du magasin
• Article
• Prix unitaire
• Prix total

 

[patty58]

Bonjour jpm_neuf,

j'ai trouvé cela je ne sais plus où :

'   Cocher Reference : Microsoft Forms 2.0 Object Library
Sub Recuperer()
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 = "D:\Mes_Dossiers\FACTURES_INTER\260523.pdf"
    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
    ActiveSheet.Cells.Clear
    ActiveSheet.Range("A1").PasteSpecial

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

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

Cela copie la totalité de ton fichier PDF. Après, je ne peux rien te dire, car les factures ne se présentent pas de la même façon d'un établissement à l'autre.
Bonne soirée

 

[chris]

Bonjour
PowerQuery intégré à Excel mais il faudrait quelques exemples pour vérifier homogénéité des tickets car les pdf sont parfois un peu aléatoires

 

[patricktoulon]

bonsoir
il arrive aussi que dans le pdf ce soit une photo du tiket de caisse
et qu'il n'y ai rien à recupérer d'autre que la photo elle même
pour s'en assurer ouvre la avec une app acrobat comme la la version dc
qui permet d'ajouter ou modifier
sinon Firefox a son propre plugins minimal certe mais suffisant pour savoir si c'est bien du texte ou une photo du tiket

 

[jpm_neuf]

Bonjour à tous,
Patty58, j'ai un problème de compilation, pourrais-tu m'aider stp ?:

 

[jpm_neuf]

voici le message

 

[jpm_neuf]

voici le fichier

 

[jpm_neuf]

Oups j'avais oublié de déclarer la référence !
Maintenant j'ai cette erreur :

 

[jpm_neuf]

 

[patricktoulon]

re
Bonjour
ben c'est que tu n'a pas la librairie donc tu peux oublier cette solution
pourrait on avoir ce ticket de caissie ?

 

[jpm_neuf]

Bonjour Patrick Toulon.
Quelle est la library absente ?

 

[patricktoulon]

Bonjour Patrick Toulon.
Quelle est la library absente ?

la librairie de acrobat 1.7 la seule application acrobat gratos qui permet de trafiquer les pdf
difficile de le trouver il date de plusieurs années et pas sur que ce soit compatible avec W10 ou 11 en 64 bit

donc
ok test ça

1. clique sur le bouton fichier
2. choisi ton fichier dans le dialog

et laisse faire

 

[chris]

RE

Comme je l'ai dit avec un seul ticket on n'est sûr de rien

Par ailleurs sont attentes sont floues

je sors cela avec PQ

 

[Cousinhub]

RE

Comme je l'ai dit avec un seul ticket on n'est sûr de rien

Par ailleurs sont attentes sont floues

je sors cela avec PQ
Regarde la pièce jointe 1187611

Bonjour Chris, le forum
Et meilleurs vœux pour cette nouvelle année.
Comme le demandeur utilise 2016 à priori, j'ai un doute quant l'utilisation de PQ v2016 pour lire des pdf...
Tu en penses quoi?
Bonne journée

 

[chris]

RE

Comme le demandeur utilise 2016 à priori, j'ai un doute quant l'utilisation de PQ v2016 pour lire des pdf...

Bien vu

C'est fou ces boîtes qui gardent des versions obsolètes...