1. #1
    Futur Membre du Club
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 7
    Points : 5
    Points
    5

    Par défaut

    Bonjour,

    Je souhaiterai faire un programme VBA sous excel qui utilise Adobe Acrobat Pro :
    ouvre un fichier PDF
    verifie si le fichier respecte la norme archivable Pdf
    Si non : enregistre sous type Archivable PDF (PDF/A).

    Quelle fonction VBA peut on utiliser pour vérifier et pour enregistrer sous Archivable Pdf ?

    Merci,

    Pour étayer ma demande d'Aide, voilà où j'en suis.
    Le programme s’arrête sur boResult = objJSO.SaveAs(NewFilePath, ExportFormat) et je n'ai pas réussi à vérifier si le fichier était déjà au format.

    Message d'erreur :
    Erreur d'exécution '1001' : UnsupportedValueError : Value is unsupported.===> Parameter cConvID
    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Sub ConvertisseurPDFA()
    Dim CheminPDF As String
    Dim objAcroApp      As Acrobat.AcroApp
    Dim objAcroAVDoc    As Acrobat.AcroAVDoc
    Dim objAcroPDDoc    As Acrobat.AcroPDDoc
    Dim objJSO          As Object
    Dim boResult        As Boolean
    Dim ExportFormat    As String
    Dim NewFilePath     As String
     
     
    Repertoire = "G:\Documents\"
    'Do While Cells(i, 1) <> ""
    '    Fichier = Cells(i, 1)
        Fichier = "test.pdf"
    '    i = i + 1
    '    Loop
     
    CheminPDF = Repertoire & Fichier
     
     
        If Dir(CheminPDF) = "" Then
            MsgBox "Cannot find the PDF file!" & vbCrLf & "Check the PDF path and retry.", _
                    vbCritical, "File Path Error"
            Exit Sub
        End If
     
        If LCase(Right(CheminPDF, 3)) <> "pdf" Then
            MsgBox "The input file is not a PDF file!", vbCritical, "File Type Error"
            Exit Sub
        End If
     
        Set objAcroApp = CreateObject("AcroExch.App")
        Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
        boResult = objAcroAVDoc.Open(CheminPDF, "")
     
        Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
        Set objJSO = objAcroPDDoc.GetJSObject
     
        NewFilePath = Repertoire & Left(Fichier, Len(Fichier) - 4) & " (PDFA).pdf"
        ExportFormat = "com.callas.preflight.pdf"
        boResult = objJSO.SaveAs(NewFilePath, ExportFormat)
        boResult = objAcroAVDoc.Close(True)
        boResult = objAcroApp.Exit
     
    End Sub

  2. #2
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 225
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : juin 2006
    Messages : 5 225
    Points : 13 476
    Points
    13 476

    Par défaut

    Salut, voir ici pour plus d'infos.
    Images attachées Images attachées  
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

Discussions similaires

  1. [XL-2007] Macro "enregistrer sous en pdf" + "déplacer en renommant"
    Par grogus dans le forum Macros et VBA Excel
    Réponses: 25
    Dernier message: 26/07/2015, 21h27
  2. Enregistrement sous format PDF
    Par Pasqualini dans le forum Word
    Réponses: 2
    Dernier message: 08/03/2013, 10h58
  3. Script pour bloquer la fonction enregistrer sous
    Par zidrouz dans le forum JavaScript
    Réponses: 6
    Dernier message: 31/01/2006, 10h16
  4. Réponses: 3
    Dernier message: 03/11/2005, 18h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo