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