Piloter Adobe via Excel

[Adil TBER]

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, .Value = sStr ‘intégration dans la feuille

If Sheets(“Feuil1”).Cells(k, .Value <> “Anonyme” or Sheets(“Feuil1”).Cells(k, .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

Sujet

[Merlin]

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:

[Adil TBER]

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

[Merlin]

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:

[Adil TBER]

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:

[Auteur]

Réponses