Discussion :

[esse2016]

Bonsoir à tous,

Je n'ai pas trouvé de réponses à mon problème.

Je souhaiterai convertir un fichier *.pdf en fichier *.txt
Les données du *.txt sont le reflet de celles du *.pdf
C'est à dire qu'une fois le fichier convertit en txt ou sauvegarder en txt (je ne sais pas quelle méthode est la plus codable) je dois chercher des infos dans le txt pour les importer dans ma feuille excel.
De plus je ne possède qu' acrobat reader.


1/ est-ce possible en macro excel ?

2/ quel en serait le code ou un lien qui traite du sujet ?

Merci.

[kiki29]

Salut, visiblement tu n'as pas trop cherché, bref à 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+

Ces 2 fichiers m'ont permis de traiter 6700 fichiers pdf ( 1.7 Go au total, dans 3 présentations différentes ) d'une base Kompass pour en extraire autour de 638 000 entreprises avec uniquement les infos utiles.

Remarque 1 : Sauvegarde en Texte avec Acrobat et Acrobat Reader
Remarque 2 : pour Reader 10 + : concernant menu Edition/Préférences catégories

Un ou deux échantillons de tes fichiers pdf permettraient d'examiner la chose, car la récupération du contenu des pdf est souvent loin d'être une sinécure.

[esse2016]

Bonjour Kiki,

merci pour tous ces liens. Je regarde et adapte....

Non désolé, je ne peux pas fournir du pdf pour cause: propriété de mon entreprise.

Je reviendrai ici si problème d'adaptation.

[kiki29]

Salut,

Non désolé, je ne peux pas fournir du pdf pour cause: propriété de mon entreprise.
Je reviendrai ici si problème d'adaptation.

Comme je dis toujours : ne pratiquant pas l'extispicine autrement dit pas de bras pas de chocolat ...

[esse2016]

Bonjour Kiki,

que dois-je faire face au message d'erreur suivant ?

un composant Active X ne peut pas créer d'objet

il s'arrête sur la partie suivante colorié en rouge. (Au passage, Microsoft Forms 2.0 object Library est coché)

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
Private Sub Lire(sFichier As String)
Dim AcroXApp As Object
Dim AcroXAVDoc As Object
Dim AcroXPDDoc As Object
Dim JSO As Object
Dim sCheminPDF As String, sChemin As String
 
    Set AcroXApp = CreateObject("AcroExch.App")
    AcroXApp.Hide
 
    sCheminPDF = sFichier
    sChemin = ThisWorkbook.Path & "\" & "Essai.txt"
 
    Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
    AcroXAVDoc.Open sCheminPDF, "Acrobat"
    AcroXAVDoc.BringToFront
 
    Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
    Set JSO = AcroXPDDoc.GetJSObject
 
    JSO.SaveAs sChemin, "com.adobe.acrobat.accesstext"
 
    AcroXAVDoc.Close False
    AcroXApp.Exit
 
    Set JSO = Nothing
    Set AcroXPDDoc = Nothing
    Set AcroXAVDoc = Nothing
    Set AcroXApp = Nothing
End Sub

[kiki29]

Salut, ce code est pour Acrobat pas le Reader.