Re : Macro pour ecrire date dans En têtes
Re
Je n'ai pas corrigé mais je signale à Patrick que Accueil s'ecrit bien Accueil malgré la prononciation
J'ai vu la macro de ninbihan et je ne vois pas bien pourquoi elle ne serait pas adaptable
pierrrejean merci pour ton aide et pour ""Accueil""
pour accueil, dans mon fichier original , accueil est bien orthographié c'est dans le fichier de test que j'ai m...é
j'ai donc modifié l'écriture d'accueil de ta macro pour essayer de l'adapter à la mienne
mais lorsque je l'execute il y a une ereur de compilation (variable non définie )j'ai mis en rouge ..
la procédure de NINBIHAN est sympa et elle fonctionne parfaitement sur les tests , j'ean ai effectué plusieurs ,mais j'arrive pas à l'adapter sur ma procédure qui comporte déjà plusieurs macro
mais je ne désespère pas ....
Bon Dimanche à tous
Sub Macro1()
With Sheets("Accueil").Range("K20")
.Value = Date
With .Font
.Name = "Arial"
.FontStyle = "Gras italique"
.Size = 16
End With
End With
Selection.NumberFormat = "mmmm -yyyy"
For Each
ws In Worksheets
If ws.Name <> "Accueil" Then
ws.PageSetup.PrintArea = ""
With ws.PageSetup
texte = Format(Date, "mmmm -yyyy")
.RightHeader = "&16&G&I&""Arial""" & texte
End With
End If
Next ws
End Sub