Mettre le nom de la feuille, dans une cellule

[maval]

Bonjour

Je recherche la formule ou le code VBA pour mettre le nom de la feuille, dans une cellule.

Je vous remercie par avance de votre aide

Cordialement

Maval

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Re

Merci pour tous et bonne journée à tous

@+

Max

 

[job75]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour à tous,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsDate("1/" & Sh.Name) Then
  Sh.[A1].NumberFormat = "mm - yyyy"
  Sh.[A1] = CDate("1/" & Sh.Name)
End If
End Sub

A+

 

[Efgé]

Re : Mettre le nom de la feuille, dans une cellule

Re à tous, Bonjour Job 🙂

...Sur le Post11 sa ne fonctionne pas?...

J'avais précisé :

...mais en partant du principe élémentaire du bon "OrtOGraf" des noms de feuilles...

De toutes façons la proposition de Job résoud le problème de belle manière 🙂

Cordialement

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Re,

Merci Efgé, Job

Je vous souhaite une bonne soirée

Max