1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub test()
'Création de l'entete
Dim nom_enrob As String
Dim no_run As String
nom_enrob = Cells(1, 1).Value
If nom_enrob = "211101" Then
nom_enrob = "machine1"
ElseIf nom_enrob = "211102" Then
nome_enrob = "machine2"
End If
no_run = ActiveSheet.Name
Application.PrintCommunication = False
ActiveSheet.PageSetup.LeftHeader = "Run°: " & no_run
ActiveSheet.PageSetup.CenterHeader = "&18" & nom_enrob
ActiveSheet.PageSetup.RightHeader = "&D&T&P/&N"
Application.PrintCommunication = True
End Sub |
Partager