code imprimer

M

Marc_du_78

XLDnaute Accro

• 1 Mars 2006

• #2

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.

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 1 Mars 2006

• #3

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.

 

Vote positif 0 Vote négatif

J

Jean67

Guest

• 1 Mars 2006

• #4

Salut Marc

Merci pour le code

 

Vote positif 0 Vote négatif