Bonjour 3Stone,

je recherche un code VBA qui me permettrait de convertir un fichier .pdf en fichier .txt

j'ai récupéré sur le net le code suivant

Dim AcroXApp As Acrobat.AcroApp
                Dim AcroXAVDoc As Acrobat.AcroAVDoc
                Dim AcroXPDDoc As Acrobat.AcroPDDoc
                Dim Filename As String
                Dim jsObj As Object
                Dim NewFileName As String

                Filename = "C:\Documents and Settings\xxx\Desktop\file01.pdf"
                NewFileName = "C:\Documents and Settings\xxx\Desktop\file.txt"

                Set AcroXApp = CreateObject("AcroExch.App")
                'AcroXApp.Show

                Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
                AcroXAVDoc.Open Filename, "Acrobat"

                Set AcroXPDDoc = AcroXAVDoc.GetPDDoc


                Set jsObj = AcroXPDDoc.GetJSObject


                jsObj.SaveAs NewFileName, xlTextWindows



                AcroXAVDoc.Close False
                AcroXApp.Hide
                AcroXApp.Exit

malheureusement et malgré l'ajout des références via la commande outil, la commande suivante: Set AcroXApp = CreateObject("AcroExch.App")
bloque avec pour erreur "1 composant ActiveX ne peut pas créer d'objet"

peux-tu m'aider?

je sais qu'il existe des appli pour convertir des fichiers mais je dois analyser 576 fichiers

merci pour ta réponse

cordialement

Nico

le problème ne vient pas de Call shell("...")

j'ai testé la fonction pour ouvrir un fichier .xlsx et cela fonctionne

sur ce coup là, je sèche

cordialement

Nico

effectivement en précisant le chemin du fichier .pdf ça fonctionne

et avec l'option -layout ça conserne la mise en forme du pdf dans le txt

chapeau bas Monsieur 3Stone vous êtes un génie

le traitement de tous mes fichiers va être maintenant un vrai plaisir

j'espère que vous intégrerez votre procédure dans votre page d'accueil car je pense qu'il doit y avoir d'autres personnes intéressées par votre solution

encore un grand merci

bonne continuation

cordialement

Nico