Macro pour ecrire date dans En têtes

[Patrick.75019]

Bonjour à tous



je voudrai faire une macro pour écrire la date mensuellement ""j'executerai la macro manuellement ""
sous ce format Mois _Année
exp: Sept _2008(Arial 16 Gras Italique )dans la cellule K20 de la feuille Accueil et la même chose dans tous les en têtes droits des autres feuilles



je vous remercie pour votre aide

 

[lufy50]

Re : Macro pour ecrire date dans En têtes

Qu'est ce que tu appelles un en tete droit ???

 

[Patrick.75019]

Re : Macro pour ecrire date dans En têtes

bonjour dans les en tetes et pied de page ,
tu as dans les ent^tes

1 partie à gauche - 1 partie centralle-1 partie à droite

 

[lufy50]

Re : Macro pour ecrire date dans En têtes

Voila deja pour la date en K20, pour les en tete je sais pas ce que tu veux ...

 

[lufy50]

Re : Macro pour ecrire date dans En têtes

Ha oui d'accord, je vais voir ce que je peux faire avec mes maigres competences...

 

[Patrick.75019]

Re : Macro pour ecrire date dans En têtes

Pour l'accueil ça ce n'était pas le plus compliqué ..

Ce que je veux c'est que la même chose soit effectué dans l'entêtede chaque feuille .
chaque mois quand j'executerai la macro j'aurai
juil_2008_quand nous serons au mois de juillet etc ....
la date dans le format Arial 16 gras Italic sans le jour

merci d'avoir essayé

 

[ninbihan]

Re : Macro pour ecrire date dans En têtes

Bonjour,

Un essai, dés que l'on change la date en K2, toutes les entêtes sont modifiées


A tester,

Bon après midi,

Ninbihan

 

[Patrick.75019]

Re : Macro pour ecrire date dans En têtes

c'est sympa ça fonctionne bien dans le fichier présent , mais j'ai essayé de l'adapter à mon fichier perso etça bug

je vais y revenir plus tard et essayer d'adapter car je dois m'en aller

je te remercie et bonne journée a toi aussi

 

[Staple1600]

Re : Macro pour ecrire date dans En têtes

Bonjour à tous



Tu peux essayer de faire la manip en lançant l'enregistreur de macros
(Outils/Macros/Nouvelle Macro)

Ainis tu pourras voir le code VBA généré, puis le modifier

 

[pierrejean]

Re : Macro pour ecrire date dans En têtes

bonjour a tous

Puisque je l'ai fait , je le poste (et je cours voir celle de ninbihan )

ub Macro1()
     With Sheets("Acceuil").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 <> "Acceuil" 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

 

[pierrejean]

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

 

[Patrick.75019]

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

 

[Patrick.75019]

Re : Macro pour ecrire date dans En têtes

Réglé

pierrejean , comme je ne s'avais pas comment déclarer la variable , j'ai mis ta procédure dans un nouveau module et j'ai supprimé option explicit et tout fonctionne ...

je vais encore essayer de tester celle de Ninbihan car je ne comprends pas pourquoi celle-ci ne fonctionne pas sur mon application.

merci à tous