OVH Cloud OVH Cloud

En tete de page

2 réponses
Avatar
jl Guitard
Bonjour,
Je souhaiterai inscrire en en tête de page Calendrier et l'année qui se
trouve dans la cellule 'Calendrier!A1'
si je saisi Calendrier & 'Calendrier!A1' ça ne marche pas
si j'ai en A1 = 2005, je souhaiterai avoir comme en tête de page Calendrier
2005
comment doit-on faire
merci à ceux qui savent...
bonne journée

2 réponses

Avatar
Rai
Bonjour,

Par macro tu peux y arriver facilement.

ActiveSheet.PageSetup.LeftHeader = "Calendrier " & [A1]

Si tu veux automatiser ça,
insère ta macro dans l'évennement 'beforeprint' de 'Thisworkbook'
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Bon Dimanche,

Rai

"jl Guitard" a écrit dans le message de news:
Bonjour,
Je souhaiterai inscrire en en tête de page Calendrier et l'année qui se
trouve dans la cellule 'Calendrier!A1'
si je saisi Calendrier & 'Calendrier!A1' ça ne marche pas
si j'ai en A1 = 2005, je souhaiterai avoir comme en tête de page Calendrier
2005
comment doit-on faire
merci à ceux qui savent...
bonne journée




Avatar
E KERGRESSE
Salut JL,


Un exemple de Benead Michel ci-dessous relevé dans ExcelLabo.net à adapter
dans ton cas si tu connais VBA.

Il suffit de remplacer

wInfo = "Par " & Application.UserName & " Imprimé le &D à &T"

par

wInfo = "Calendrier : " & Activesheet.Range("A1").Value

Et de modifier éventuellement l'emplacement où tu veux afficher le texte :

.LeftHeader = ""
.CenterHeader = wInfo
.RightHeader = ""

Comme l'indique le message, cette macro est à mettre dans la partie
ThisWorkBook


'---------------------------------------------
Comment récupérer le nom de l'utilisateur dans un Entête et créer cette
chaine : Imprimé le
&[Date] à &[Heure] par &[Utilisateur]
La solution la plus simple est de mettre ce code
dans le module événementiel ThisWorkbook du classeur ; de cette façon avant
chaque impression ou aperçu, ces informations viendront se mettre là où tu
le souhaites.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wInfo As String
wInfo = "Par " & Application.UserName & " Imprimé le &D à &T"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = wInfo
.RightHeader = ""
End With
End Sub

En complément, Application.Username renvoie le nom
entré dans Outils/Options/General (ce qui n'est pas forcement renseigné)
tandis que Environ("username") retourne le nom d'utilisateur fourni lors de
l'ouverture de session: le choix est donc à faire en fonction du systeme
utilisé. Benead, Michel (msa), (N°937)
'--------------------------------"jl Guitard" a
écrit dans le message de news:
Bonjour,
Je souhaiterai inscrire en en tête de page Calendrier et l'année qui se
trouve dans la cellule 'Calendrier!A1'
si je saisi Calendrier & 'Calendrier!A1' ça ne marche pas
si j'ai en A1 = 2005, je souhaiterai avoir comme en tête de page
Calendrier

2005
comment doit-on faire
merci à ceux qui savent...
bonne journée