Discussion :

[dilou123]

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 à Adobe Acrobat depuis VBA, ce serait formidable.

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

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
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

[Jean-Philippe André]

Salut,
kiki29 a fait de nombreuses contributions sur ce sujet :
http://www.developpez.net/forums/d43...ro-pdfcreator/

[dilou123]

En effet, cette page est très utile pour de nombreuses fonctions. En revanche, elle ne traite pas de l’instruction pour modifier le champ « auteur » d’un fichier PDF.

Bonsoir à tous,
Après de nouvelles recherches sur plusieurs sites, il s’avère que la question pourrait être résumée et mieux ciblée : est-il possible de modifier les métadonnées d’un fichier (Adobe dans ce cas) par VBA Excel ?
Certains codes existent sur le Net pour des fichier JPG ou MP3 mais ne sont pas opérants pour des PDF.
Merci

[dilou123]

Chers amis,
A force de chercher, j'ai fini par trouver... Voici le code la partie du code qui pourrait vous intéresser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set PDF = CreateObject("AcroExch.PDDoc")
If PDF.Open(fic) = -1 Then 'ouverture du fichier fic
   st1 = PDF.SetInfo("Title", "Anonyme") 'modification du titre en anonyme
   st2 = PDF.SetInfo("Author", "Anonyme") 'modification de l'auteur en anonyme
   st3 = PDF.Save(PDSaveCollectGarbage, fic) 'sauvegarde
   PDF.Close
End If
Set PDF = Nothing