Microsoft 365 Date du Jour

[Philippe17]

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

 

[sylvanu]

Bonjour Philippe,
Une possibilité :

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 :

ActiveSheet.Shapes("Bouton 1").TextFrame.Characters.Text = Format(Date, "dddd dd mmmm yyyy")

 

[Philippe17]

Bonjour sylvanu,
Merci beaucoup pour la réponse, je regarde et je vous informe du résultat désirer,

Philippe

 

[Philippe17]

Excusez-moi sylvanu,
Je n'arrive pas à l'intégrer dans ma forme sur la feuille

 

[sylvanu]

Une formule ne peut pas modifier le texte d'une forme. C'est du VBA.
Comme vous utilisez une forme et que votre fichier est un xlsm, je suppose que vous aurez du VBA.

 

[Philippe17]

C'est bon, j'ai trouvé ce que je voulais, Merci sylvanu pour votre aide,
Bonne fin de journée à vous et à tous ceux qui lisent ce poste,
Philippe

 

[sylvanu]

Bonjour Efgé,
Exact.
Mais je répondais à la demande :

J'aimerais insérer la date du jour « mercredi 17 avril 2024 » dans une forme

Je voulais dire qu'une formule ne peux pas écrire dans une forme.
J'admets, ma réponse était ambigüe.

 

[Staple1600]

Bonjour le fil

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

 

[Philippe17]

Bonjour Staple1600,
Merci pour la réponse, en effet, c'est cette solution que j'ai appliquée pour l'intégrer dans ma forme,
Bonne journée à tous,

Philippe