XL 2016 Insérer le champ Titre des propriétés Excel en Entête

[Stef01800]

Insérer le champ Titre des propriétés Excel en Entête
Bonjour tout le monde,

Je souhaite intégrer le champ de propriété Titre de mon classeur Excel en entête au centre, et je pense qu'il faut un code VBA mais que je n'arrive pas à trouver.
j'ai déjà dans ThisWorkbook (que j'ai chipé un peu à droite et à gauche) un code pour qu'Excel insert à droite de mon entête 2 références de cellules avec du texte qui dit :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
Dim Police As String
Dim Taille As String
Dim Texte As String

'**VARIABLES À DÉFINIR SELON TES BESOINS**
'Pour le format de ton texte :
Police = "Arial"
Taille = 20
Texte = "Rédacteur : " & _
Worksheets("Interne").Range("B2") & _
Chr(10) & _
"Destinataire : " & _
Worksheets("Interne").Range("B3")

'*******************************************
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
'.RightHeader = "&""" & Police & _
'",Gras italique""" & "&E" & _
'Taille & Texte
'OU simplement
.RightHeader = Texte
'"Rédacteur : " & _
'Worksheets("Interne").Range ("B2")
End With
End With
Next
End Sub

Auriez-vous une astuce pour ajouter le champ de propriété Titre au centre de mon entête ?

Merci pour votre aide.

Stéf

 

[Hasco]

Bonsoir,

sh.PageSetup.CenterHeader = ThisWorkbook.BuiltinDocumentProperties("Title")

A bientôt

 

[Stef01800]

sh.PageSetup.CenterHeader = ThisWorkbook.BuiltinDocumentProperties("Title")

Merci beaucoup Roblochon, mais je mets cette ligne où dans le ThisWorkbook ? Je ne maitrise pas le VBA à mon grand regret

D'avance merci pour ta réponse.

Stéf

 

[Hasco]

Bonjour,

Je ne maitrise pas le VBA à mon grand regret

Re-lisez la macro que vous nous avez donnée en post #1 et essayez d'y inclure (au bon endroit) la ligne
.CenterHeader = ThisWorkbook.BuiltinDocumentProperties("Title")

C'est pas bien compliqué et cela vous fera un exercice

bon exercice

 

[Stef01800]

Bonjour,


Re-lisez la macro que vous nous avez donnée en post #1 et essayez d'y inclure (au bon endroit) la ligne
.CenterHeader = ThisWorkbook.BuiltinDocumentProperties("Title")

C'est pas bien compliqué et cela vous fera un exercice

bon exercice

Re bonjour,

Merci, j'avais bien compris qu'il fallait inclure la ligne dans la macro !

Cordialement !