Créer un bouton personnalisé

M

Mr Bizon

Guest
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:
 
M

Mr Bizon

Guest
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!

XLDnaute Barbatruc
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.
 

Discussions similaires

Statistiques des forums

Discussions
300 890
Messages
1 988 170
Membres
210 095
dernier inscrit
Ratahiry