Créer un bouton personnalisé

[Mr Bizon]

Bonjour le forum,

J'ai déjà fais appel à vos service et je n'est pas étré déçu !!

Je souhaite mettre en place un bouton dans une barre de menu personnalisée qui fasse automatiquement le tâches suivantes :

1 Mettre en en-tête : Fait le + (la date d'aujourd'hui)
2 Que la date 'd'aujourd'hui' ne change jamais(ne se met pas à jour lorsque quel'on ouvre le lendemein le classeur concerné!!)
3 Mettre en pied de page : le nom de l'auteur


Voici la macro et la fonction associées au bouton :

sub miseenforme() 'la macro

with activesheet.pagesetup
.rightheader = 'fait le'& auj
.rightfooter = 'Mr Bizon'
end with
End Sub

Function auj() 'la fonction qui rend la date d'aujoud'hui
auj ='=today()'
Application.volatile false
end function

Lorsque j'exécute la macro je peux voir 'Fait le today'


Merci pour les conseils avisé pour créer ce bouton

:lol:

 

[myDearFriend!]

Bonsoir Mr Bizon,

Pas sûr d'avoir vraiement compris la question...

Sub miseenforme() 'la macro
      With ActiveSheet.PageSetup
            .RightHeader = 'fait le ' & Date
            .RightFooter = 'Mr Bizon'
      End With
End Sub

Cordialement,

 

[Mr Bizon]

Merci pour la réponse mais je vais mieux m'expliquer

je veux que la date ajoutée dans l'entête ne change pas.
par exemple, aujourd'hui Date [/b]= 27/10/2005

si demain j'ouvre ce même fichier, la date va devenir
date = 28/10/2005
La date va semettre à jour sans qu'on lui demande!!!

Est il possible dans la macro ci dessus de faire en sorte que la date ne change pas lorsque l'on ouvre le fichier demain ou après demain???

 

[myDearFriend!]

Re,

Je ne comprends pas...Tout dépend à quel moment tu lances ta procédure 'miseenforme()' Mr Bizon...

Si tu la lances aujourd'hui tu obtiendras 'Fait le 27/10/2005' en entête de page... si tu ouvres le document demain, l'entête n'aura pas changé, ce sera toujours le 27/10/2005 !
Bien évidemment, si tu relances alors à nouveau ta macro, cet entête sera 'écrasé' avec la nouvelle date...

Bonne soirée.