Donnez vie à vos documents numériques !
 

Piloter Adobe via Excel

abracadabraPDF Forums PDF – Général Piloter Adobe via Excel

  • Ce sujet est vide.
  • Créateur
    Sujet
  • #44780
    Adil TBER
    Membre

    Bonjour à tous,

    Je dois rendre anonyme plus de 700 fichiers PDF dont le chemin et le nom sont stockés sur une feuille Excel.
    J’ai pu trouver sur Internet le moyen de récupérer le champs « Auteur » qui se trouve dans « Propriété » puis « Description » d’Acrobat (attention, il est différent du champ Auteur du fichier système) mais n’ai pas réussi à modifier via Visual Basic ce champ. Je n’ai pas réussi non plus un trouver un code JavaScript qui permettrait de le faire directement.

    Je remercie infiniment celui ou celle qui pourrait me m’éclairer sur l’instruction permettant de le réaliser. plus globalement, si quelqu’un a la liste des insturctions applicables depuis VBA, ce serait formidable.

    Voici ce que j’ai pu faire pour le moment :

    For k = i To m  ’gestion de la boucle de I à m.

    rr = Cells(k, 3).Value & «  » & Cells(k, 2).Value    ‘la colonne 2 contient le nom du fichier et la colonne 3 contient le répetoire
    fic = CStr(rr) ‘ nom chemin complet
    sStr = Pdf.GetMetadata(fic, « Author ») ‘récupération du nom d’Auteur du fichier PDF
    Sheets(« Feuil1 »).Cells(k, 8).Value = sStr ‘intégration dans la feuille

    If Sheets(« Feuil1 »).Cells(k, 8).Value « Anonyme » or Sheets(« Feuil1 »).Cells(k, 8).Value ””  Then

    Sheets(« Feuil1 »).Cells(k, 11).Value = « NOK » ‘indication dans la feuille que le fichier n’est pas anonyme
    Set PDDoc = CreateObject(« AcroExch.PDDoc ») ‘création d’un objet Adobe
    PDDoc.Open fic ‘ouverture du fichier Fic en vue de modifier le nom de l’auteur

    PDDoc.info.Author = « Anonyme »  ‘C’est cette instruction qui ne fonctionne pas. Il ne connait pas « info.Author » alors que pour d’autres objets cela fonctionne.
               
    With PDDoc
          .Save 1, fic
          .Close
    End With

    Set PDPage = Nothing
    Set PDDoc = Nothing

    End If
    Next k

    Merci à tous

Affichage de 4 réponses de 1 à 4 (sur un total de 4)
  • Auteur
    Réponses
  • #56627
    Merlin
    Maître des clés

    Bonjour et bienvenue,

    Je vais te décevoir mais ici s’il y a des spécialistes du PDF et de JavaScript il y a par-contre bien peu de spécialistes du Visual Basic.
    Je crains que tu n’obtiennes pas de réponse.

    :joker:

    #56628
    Adil TBER
    Membre

    Merci grand magicien pour cette réponse néanmoins… c’est surprenant que cette question ne soit traitée par aucun forum.

    #56629
    Merlin
    Maître des clés

    En fait, avec Acrobat on fait ça en un tournemain sans même avoir besoin de JavaScript… à condition de réunir préalablement les 700 fichiers dans un dossier à part…
    :Smiley01:

    #56630
    Adil TBER
    Membre

    Evidemment, mais s’il est nécessaire de garder les 700 fichiers dans des répertoires spécifiques, les choses se compliquent pour le faire à la main et il est nécessaire de trouver une procédure pour le faire. :bonjour:
    Mais bon, je cherche depuis 4 jours sans succès. Il y a beaucoup de choses foisonnantes sur le Net en terme d’interactions VBA / Adobe et rien sur cette question (ou cet objet pour être précis)… A mon grand désespoir.
    :mur:

Affichage de 4 réponses de 1 à 4 (sur un total de 4)
  • Vous devez être connecté pour répondre à ce sujet.