Microsoft 365 Date du Jour

Philippe17

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,

J'aimerais insérer la date du jour « mercredi 17 avril 2024 » dans une forme ou en sur un bouton, c'est possible ? Merci,

Philippe 😇
 

Pièces jointes

  • Classeur(test).xlsm
    11.6 KB · Affichages: 3
Solution
Bonjour Philippe,
Une possibilité :
VB:
ActiveSheet.Shapes("Bouton 1").Select
Selection.Characters.Text = Format(Date, "dddd dd mmmm yyyy")
[A1].Select
Modifiez le format suivant ce que vous désirez.
ou plus simplement :
VB:
ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = Format(Date, "dddd dd mmmm yyyy")

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Philippe,
Une possibilité :
VB:
ActiveSheet.Shapes("Bouton 1").Select
Selection.Characters.Text = Format(Date, "dddd dd mmmm yyyy")
[A1].Select
Modifiez le format suivant ce que vous désirez.
ou plus simplement :
VB:
ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = Format(Date, "dddd dd mmmm yyyy")
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil

On peut biaiser
En A1: =AUJOURDHUI()
Et pour la forme: =$A$1

FormeDate.PNG
 

Statistiques des forums

Discussions
313 274
Messages
2 096 750
Membres
106 738
dernier inscrit
Lacbus