Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Dans ThisWorkBook, choisir WorkBook et l'évennement BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Feuil1" Then ActiveSheet.PageSetup.CenterHeader = Sheets("Feuil1").Range("B5") End If End Sub
Cordialement JB
Bonjour,
Dans ThisWorkBook, choisir WorkBook et l'évennement BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
ActiveSheet.PageSetup.CenterHeader = Sheets("Feuil1").Range("B5")
End If
End Sub
Dans ThisWorkBook, choisir WorkBook et l'évennement BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Feuil1" Then ActiveSheet.PageSetup.CenterHeader = Sheets("Feuil1").Range("B5") End If End Sub