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
Jacky
Ici: http://www.technicland.com/malpolitus.swf
Ensuite:
Réponse de JB sur ce sujet...
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
Ici:
http://www.technicland.com/malpolitus.swf
Ensuite:
Réponse de JB sur ce sujet...
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
