Mettre des propriétés "personnalisées" dans un pdf (méta données)

Question

J'utilise en VBA sous excel, la fonction "ActiveWorkbook.BuiltinDocumentProperties" pour créer et signer un document EXCEL en PDF. Ceci fonctionne très bien mais, j'ai voulu, afin d'aller plus loin, mettre des propriétés personnalisées car les propriétés par défaut sont insuffisantes et les termes ne me conviennent pas. C'est la partie en gras qui est dessous et malheureusement j'ai une erreur '5' : Argument ou appel de procédure incorrect. Je pense que je n'utilise pas la bonne fonction mais j'ai beau regardé dans les aides ou autre, et je ne vois pas !. Quelqu'un aurait la gentillesse de m'aiguiller svp ?. En vous remerciant Bien cdt Imer25 Title = Sheets(actuel_wh).Range("P16").Value Subject = Sheets(actuel_wh).Range("P13").Value Author = Sheets(actuel_wh).Range("P14").Value Keywords = Sheets(actuel_wh).Range("P15").Value Serial_number = Sheets(actuel_wh).Range("P30").Value 'To update the title of document in document property ActiveWorkbook.BuiltinDocumentProperties("title").Value = Title 'To update the Author's comment in document proprty ActiveWorkbook.BuiltinDocumentProperties("Author").Value = Author 'To update Subject in document proprty ActiveWorkbook.BuiltinDocumentProperties("Subject").Value = Subject 'To update the Keywords in document proprty ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value = Keywords ActiveWorkbook.BuiltinDocumentProperties("SN").Value = Serial_number 'Signer le fichier PDF avant enregistrement repertoire_signature = "C:\Users\Certificat\" Signature = "@Signature _metro" ActiveSheet.Shapes("@Signature _metro").Delete ActiveSheet.Pictures.Insert(repertoire_signature & Signature & ".png").Name = Signature ActiveSheet.Shapes(Signature).Left = &#91;D27&#93;.Left ActiveSheet.Shapes(Signature).Top = &#91;D27&#93;.Top With Sheets(actuel_wh) chemin = "C:\Users\Certificat\" & Sheets(actuel_wh).Range("P4").Value & ".pdf" .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With...

Eric_angers · Accepted Answer

Il semble que cette propriété n'existe pas dans les fichiers Pdf. Tu peux voir cet article qui permet d'extraire les propriétés d'un fichier et de les redéfinir. Lire et modifier les propriétés des classeurs et autres fichiers (developpez.com) Bonne journée...