Discussion :

[imer25200]

onjour à tous,

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 ?. Merci

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 = [D27].Left
ActiveSheet.Shapes(Signature).Top = [D27].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

[Philippe Tulliez]

Bonjour,
Je vous conseille la lecture de ce tutoriel Lire et modifier les propriétés des classeurs et autres fichiers

[imer25200]

Un grand merci Philippe. Je vais aller le lire Bien cdt Imer

Bonjour,
Je vous conseille la lecture de ce tutoriel Lire et modifier les propriétés des classeurs et autres fichiers