Entête de page référant à une cellule et mis en forme

Bonjour à tous,

Voici mon problème :

Je voudrais comme entête la valeur contenue dans une cellule d'une autre
page et définir la mise en forme de cet entête. Je n'y arrive pas.

La cellule servant à l'entête est : "F1" dans la feuille "DONNEES"
L'entête est celui de la feuille "Mensualisation"




Worksheets("MENSUALISATION").PageSetup.RightHeader =
Worksheets("DONNEES").Range("F1")

Sheets("Mensualisation").Select

With ActiveSheet.PageSetup
.LeftHeader = ""
.RightHeader = "&""Arial,Italic""&20"
.RightFooter = "&P / &N"
End With




Ca ne fonctionne pas.

Quelqu'un peut m'aider ?

Merci d'avance à tous !

Bonsoir FUXI,

C'est normal, tu écrases la valeur assignée à RightHeader par la mise
en forme, essaie :

Worksheets("MENSUALISATION").PageSetup.RightHeader =
Worksheets("DONNEES").Range("F1")

Sheets("Mensualisation").Select

With ActiveSheet.PageSetup
.LeftHeader = ""
.RightHeader = "&""Arial,Italique""&20" & .RightHeader
.RightFooter = "&P / &N"
End With

Bonjour à tous,

Voici mon problème :

Je voudrais comme entête la valeur contenue dans une cellule d'une autre
page et définir la mise en forme de cet entête. Je n'y arrive pas.

La cellule servant à l'entête est : "F1" dans la feuille "DONNEES"
L'entête est celui de la feuille "Mensualisation"




Worksheets("MENSUALISATION").PageSetup.RightHeader =
Worksheets("DONNEES").Range("F1")

Sheets("Mensualisation").Select

With ActiveSheet.PageSetup
.LeftHeader = ""
.RightHeader = "&""Arial,Italic""&20"
.RightFooter = "&P / &N"
End With




Ca ne fonctionne pas.

Quelqu'un peut m'aider ?

Merci d'avance à tous !

--
Cordialement,

Jacques.