nom d un onglet dans titre

VINCEGR · 16 Mai 2013

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 · 16 Mai 2013

Re : nom d un onglet dans titre

Bonjour, VINCEGR, le Forum,

VINCEGR à dit:
... 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 .

Code:

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 · 29 Mai 2013

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 · 29 Mai 2013

Re : nom d un onglet dans titre

Bonjour, VINCEGR, le Forum,

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

Code:

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 · 5 Juin 2013

Re : nom d un onglet dans titre

Merci double zero

nom d un onglet dans titre

VINCEGR

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

VINCEGR

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

VINCEGR

XLDnaute Occasionnel

Discussions similaires