Re : code vba pour entete et pied de page
Bonsoir,
tu peux déjà voir ce que donne ceci:
Sub entete_before_print()
On Error Resume Next
Application.ScreenUpdating = False
Dim Osheet As Object, Startsheet As Object, StartRange As Object
Dim myuser As String
Dim HautGauche As String, Haumtilieu As String, HautDroit As String
Dim BasGauche, Basmilieu, BasDroit, Default
myuser = Application.UserName
nbonglets = ActiveWorkbook.Sheets.Count
Set Startsheet = ActiveSheet
SetStartRange = Selection
messagegauche = "Quel titre en haut à gauche ?"
Titre = "Haut Gauche"
Default = "Ceci est le titre"
HautGauche = InputBox(messagegauche, Titre, Default, 450, 450)
If HautGauche = "" Then Exit Sub
On Error Resume Next
For Each Osheet In ActiveWorkbook.Worksheets
Osheet.Activate
Dim nomcomplet, mystr
nomcomplet = ActiveWorkbook.FullName
ActiveSheet.PageSetup.LeftHeader = nomcomplet
mydate = Date
mydate = Format(mydate, "dddd dd / mmm / yyyy")
'-------------
ActiveSheet.PageSetup.LeftHeader = HautGauche
'-------------
' ou bien en mettant un format à l'entête gauche
'
' ActiveSheet.PageSetup.LeftHeader = "&""Arial,Gras""&14" & UCase(Range("H1").Value) & _
' " : ----> " & UCase(Range("H2").Value) & " / " & UCase(Range("H3").Value)
'
'-----------
ActiveSheet.PageSetup.CenterHeader = nomcomplet
ActiveSheet.PageSetup.RightHeader = Format(Date, "dddd dd / mm / yyyy")
ActiveSheet.PageSetup.CenterFooter = myuser
Range("A1").Select
Next Osheet
Application.ScreenUpdating = True
Startsheet.Select
End Sub
P.