nom d un onglet dans titre

[VINCEGR]

bonjour,

je recherche une astuce pour intégrer le nom d'un onglet différent dans la mise en page d'un autre onglet.

exemple:

dans ma mise en page actuelle
en tête de page :

partie gauche : nom de l entreprise
partie centrale : mois &[onglet]
partie droite : date d impression &[date]

merci d'avance

 

[DoubleZero]

Re : nom d un onglet dans titre

Bonjour, VINCEGR, le Forum,

... intégrer le nom d'un onglet différent dans la mise en page d'un autre onglet...

Je n'ai pas la certitude d'avoir bien compris le besoin...

Une proposition à tester .

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With ActiveSheet.PageSetup
    .LeftHeader = "Entreprise TOTO"
    .CenterHeader = "Mois de " & Format(Date, "mmmm") & " - " & ActiveSheet.Name
    .RightHeader = "Impression du " & Date
    End With
End Sub

A bientôt

 

[VINCEGR]

Re : nom d un onglet dans titre

bonjour,
merci pour ta réponse double zero.
je viens de mettre un fichier avec le résultat
est il possible d'avoir sur la feuil (2) en impression le nom de l onglet de la feuille suivante (2013 actuellement mais autre chose plus tard )
merci d'avance

 

[DoubleZero]

Re : nom d un onglet dans titre

Bonjour, VINCEGR, le Forum,

Peut-être avec ce code, à placer dans le module "Feuil2" du classeur :

Option Explicit
Private Sub Worksheet_Activate()
    With ActiveSheet.PageSetup
    .LeftHeader = "Entreprise TOTO"
    .CenterHeader = "Mois de " & Format(Date, "mmmm") & " - " & Feuil3.Name 'utilisation du codename
    .RightHeader = "Impression du " & Date
    End With
End Sub

A bientôt

 

[VINCEGR]

Re : nom d un onglet dans titre

Merci double zero