Microsoft 365 VBA Récupérer le format texte d'une date pour nommer un onglet

[chris6999]

Bonjour le FORUM

Je me bats depuis ce matin pour récupérer dans mon code une date au format texte afin de nommer un onglet.
Impossible de trouver le moyen de le faire.
Ma date est en C1
Je veux que ma feuille active se nomme au format texte dd mmm yyyy de ma cellule C1

Pouvez-vous m'aider
Je ne mets pas de fichier car cela ne me paraît pas nécessaire dans ce cas.
Merci par avance pour vos réponse car je cale

 

[eric72]

Bonjour,
as-tu essayé cela :
=TEXTE(c1;"jj/mm/aa")

 

[eric72]

Pour nommer ton onglet avec une macro:

Sub RenameSheet()

Feuil1.Name = Feuil1.Range("e6")

End Sub

 

[Eric C]

Bonjour le forum
Bonjour chriss6999
Oupssss -Pas rafraichi : bonjour eric72

Format personnalisé en C1: jj mm yyyy
puis :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$1" Then Exit Sub
   Me.Name = Target.Value
   End Sub

Bonne journée à toutes & à tous
Eric c

 

[patricktoulon]

Bonjour le forum
Bonjour chriss6999
Oupssss -Pas rafraichi : bonjour eric72

Format personnalisé en C1: jj mm yyyy
puis :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$C$1" Then Exit Sub
   Me.Name = Target.Value
   End Sub

Bonne journée à toutes & à tous
Eric c

et ma soeur elle bat le beurre

sinon je crois que c'est mieux comme ça

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$1" Then Exit Sub
    If Target = "" Then Exit Sub
    Me.Name = Target.Text
End Sub

bonne nuit 🤣

 

[Phil69970]

Bonjour à tous

Voici ma version évidement le choix de la feuille est modifiable

Merci de ton retour

 

[Eric C]

Bonjour le fil

@patrick (je ne savais pas que ta soeur était crémière... 🤣
- Ne sachant pas au départ comment la date était insérée ou d'où elle provenait (code - formule), j'ai fait au plus simple.

 

[patricktoulon]

re

- Ne sachant pas au départ comment la date était insérée ou d'où elle provenait (code - formule), j'ai fait au plus simple.

une date c'est une date elle a donc les separateurs qui sont imcompatibles avec les nom de feuilles
c'est la base les caractères interdits
et surtout ne pas confondre (.text/.value) et qui puis est avec des dates

 

[chris6999]

Bonjour et merci à tous pour vos réponses.

La solution est donc simplement
ActiveSheet.Name = Range("C1").Text
car ma cellule C1 est déjà en format personnalisé comme préconisé dans plusieurs propositions.

Merci encore et bonne soirée à tous