le 27/08/2014 : 15:28 par Nico
visiteur |
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 |