code imprimer

[Jean67]

Bonjour le forum

comment faire pour mettre un nom ou autre dans un tableau lors de impression, sans le voir avant impression et le protège
merci de votre aide

 

[Marc_du_78]

Bonjour Jean,

En pied de page

Sub Nom()
ActiveSheet.PageSetup.PrintArea = '$A$1:$AV$3'
With ActiveSheet.PageSetup
.LeftHeader = 'Ton Nom' 'à gauche
.CenterHeader = 'Ton Nom' 'centré
.RightHeader = 'Ton Nom' 'à droite
End With
End Sub

Si ça te convient bien sur.
Bonne journée.

 

[Marc_du_78]

J'ai oublié de te mettre si tu veux dans une cellule :
Sub Nom2()
Range('K8').Select
ActiveCell.FormulaR1C1 = 'Je m'appelle TOTO'
Range('K9').Select
End Sub
Avec mes excuses.

 

[Jean67]

Salut Marc

Merci pour le code