Inserer le contenu d'une cellule dans toutes les entetes d'un classeur

Bonjour à vous,

Comme mon titre l'explique, je voudrais insérer le contenu de différentes cellules dans les entêtes de mon classeur.

J'ai commencé et je rencontre 2 problèmes :

ma macro n’intègre que dans l'entête de ma première page

ma date s'affiche en nombre.

mon fichier en pj

Une idée pour m'aider?

Merci d'avance

elsouba

8essai.xlsm (25.51 Ko)

Bonjour,

Un exemple à adapter.

La procédure est à copier sans le module ThisWorkbook du classeur.

Option Explicit
'Module ThisWorkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh.PageSetup
        .RightHeader = FormatDateTime(Sh.Cells(2).Value, vbLongDate)
        .LeftHeader = Sh.Cells(3, 2).Value
    End With
End Sub

Merci Jean-Eric,

Cela semble fonctionner, j'ai encore des modifs a apporter pour correspondre mais je vais chercher de mon coté avant d'éventuellement te solliciter de nouveau.

Merci encore

Rechercher des sujets similaires à "inserer contenu toutes entetes classeur"