Discussion :

[mohaled.tellache]

Bonjour,

Je viens de tester cette macro, mais j'ai ce message d'erreur (voir image ci-après).
Il me semble que je n'arrive pas à communiquer avec PDF!!!


Merci de votre aide.

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

[kiki29]

Salut, il te faut Adobe Acrobat ( pas le Reader ) ou par exemple PDFCreator 1.7.3 ( gratuit ).

pour info, si cela peut aider :
PDFCreator Lecture des métadonnées d'un fichier PDF
PDFCreator Ecriture des métadonnées dans un fichier PDF

Acrobat Lecture des métadonnées d'un fichier PDF
Acrobat Ecriture des métadonnées dans un fichier PDF