Discussion :

[Sbarb]

Bonjour,

J'ai crée un fichier Excel permettant de récupérer des données d'un PDF.
Lors du 1er lancement de la macro, je colle les données du PDF dans la cellule A1 d'une page. Ces données se retrouve toutes dans la même colonne, ensuite chaque lignes est divisées avec l'outil "Convertir" (par espace et tab).
Cette macro marche parfaitement, cependant si je souhaite relancer la macro, je suis obligé de ré-ouvrir mon fichier Excel : Excel à "sauvegardé" ma conversion, et l'applique à chaque copié collé !

Résultat, mon copié collé se retrouve sur plusieurs colonnes (comme après l'outil "convertir") et en plus il est incorrect (manque de données).
Si je relance mon fichier Excel, le 1er copié collé est parfait et prend en compte toutes les données.

Question : comment enlever cette sauvegarde de l'outil "convertir" ?

Sinon, ai-je un moyen de refresh mon fichier Excel

Merci

[Sbarb]

Ma macro convertir :

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

[Sbarb]

1er copié collé

2eme si je ne ferme pas le fichier

[kiki29]

Salut, à voir et adapter si besoin à ton contexte.

Acrobat : Copie Texte d'un fichier Pdf dans une feuille Excel

En relation avec ce post

• Acrobat Reader : Pdf2Excel
• Acrobat Reader : Pdf2Excel 2007+

• XPDF : Extraction du Texte d'une liste de PDF (2)
• XPDF : Extraction du Texte d'une liste de PDF ( P-Papier )(2)

Je te conseille XPDF ( gratuit ) nettement plus véloce qu'Acrobat ou son Reader et cette liste pour naviguer dans le bazar.
L'extraction finale des infos utiles reste à la charge de l'utilisateur et ce n'est pas une sinécure.

[Sbarb]

Problème résolu, pour ceux qui en ont besoin :

J'ai utilisé la fonction Split en VB pour imiter "convertir" d'excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    DerniereLigne = Cells(65535, 1).End(xlUp).Row
    Dim ContenuInitial As String
    Dim a() As String
    For i = 1 To DerniereLigne
        ContenuInitial = Cells(i, 1).Value
        a() = Split(ContenuInitial, " ")
        For k = 0 To UBound(a)
            Cells(i, k + 1).NumberFormat = "@"
            Cells(i, k + 1).Value = a(k)
        Next k
    Next i