Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Date du Jour

Philippe17

XLDnaute Junior
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:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…