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

chris6999

XLDnaute Impliqué
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
 

Eric C

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

Format personnalisé en C1: jj mm yyyy
puis :
VB:
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
 
Dernière édition:

patricktoulon

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

Format personnalisé en C1: jj mm yyyy
puis :
VB:
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
demo.gif


sinon je crois que c'est mieux comme ça
demo.gif


VB:
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 🤣
 

chris6999

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
14
Affichages
485
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 197
Messages
2 096 107
Membres
106 500
dernier inscrit
mmontagu