En tête depuis cellule

Bonjour,

J'aimerais faire ceci :

Insérer un numéro de cellule depuis une feuille (ACCEUIL!K1) dans l'en-tête supérieur droit d'une autre feuille (RESUME)

Si quelqu'un pouvait me faire cela (j'ai cherché mais je n'y arrive pas...)

Bonjour,

formule à mettre dans la cellule A1 de la feuille RESUME

=ACCEUIL!K1

ps accueil s'écrit accueil et non acceuil

Salut,

merci pour la réponse mais ce n'est pas cela, je ne me serai pas permis de poser la question si cela était si simple...

En faisant cela, il me met le texte tel quel...

PS : pour info ma cellule A1 sur ma feuille "RESUME" est occupée...

Bonjour,

Voir PJ. Le code se lance à l'activation de la feuille RESUME.

Private Sub Worksheet_Activate()
    Application.PrintCommunication = False
    ActiveSheet.PageSetup.RightHeader = Worksheets("ACCUEIL").Range("K1")
    Application.PrintCommunication = True
End Sub

hbs69 a écrit :

Salut,

merci pour la réponse mais ce n'est pas cela, je ne me serai pas permis de poser la question si cela était si simple...

En faisant cela, il me met le texte tel quel...

PS : pour info ma cellule A1 sur ma feuille "RESUME" est occupée...

et que contient ta cellule A1 ?

Il me dit " erreur d'éxécution '438' "

J'utilise la version 2013 en ce moment, je n'avais pas vu que tu avais la 2003. Tu pourrais lancer l'enregistrement d'une macro, modifier l'en-tête puis stopper l'enregistrement afin de visualiser le code généré.

Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 19/02/2016 par sduvivier
'

'
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$93"
    With ActiveSheet.PageSetup
        .LeftHeader = "&G"
        .CenterHeader = "&""Arial,Gras""&16AFFAIRE :"
        .RightHeader = "XXXX"
        .LeftFooter = "sduvivier"
        .CenterFooter = "Page &P"
        .RightFooter = "&D"
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.94488188976378)
        .BottomMargin = Application.InchesToPoints(0.94488188976378)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

J'ai tester en mettant =ACCUEIL!K1 à a place du XXXX mais cela ne prend pas, il me met toujours le texte...

Si tu mets :

.RightHeader=Worksheets("ACCUEIL").Range("K1")

et que tu exécutes la macro ?

Il s'arréte sur Worksheets...

Sinon si je le met sur la feuille (RESUME) tu crois que ça peux simplifier?

EDIT :

Voila j'ai ça :

Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 19/02/2016 par sduvivier
'

'
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$93"
    With ActiveSheet.PageSetup
        .LeftHeader = "&G"
        .CenterHeader = "&""Arial,Gras""&16AFFAIRE :"
        .RightHeader = Range("K1")
        .LeftFooter = "sduvivier"
        .CenterFooter = "Page &P"
        .RightFooter = "&D"
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.94488188976378)
        .BottomMargin = Application.InchesToPoints(0.94488188976378)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

Par contre, je sais pas changé ni la taille ni le mettre en gras...

Essaie avec Sheets à la place de WorkSheets, et éventuellement Sheets(1) plutôt que Sheets("RESUME") si ta feuille RESUME est en 1ère position (C'est un peu galère sans la bonne version)