Nom de la page (onglet) dans une cellule

Salut!
Recupé hier ou avant hier essaie ceci
ÎLLULE("nomfichier") chemin complet
=GAUCHE(CELLULE("nomfichier");CHERCHE("]";CELLULE("nomfichier"))) chemin
partiel
=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;32)
onglet

A+
yannick

"JEAN-PAUL" <nospam-jeanpaulbrine@hotmail.com> a écrit dans le message de
news: %23rU7VNiyEHA.3024@TK2MSFTNGP14.phx.gbl...

Bonjour,
Je souhaite mettre automatiquement le nom de l'onglet dans une cellule.
Y-a-il un "truc facile" pour cela. Je ne connais pas grand chose en VBA.
Merci infiniment.
Jean-Paul

Bonjour,
Peut-être ceci à mettre dans le module de l'onglet ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ActiveSheet.Name
End Sub

Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"JEAN-PAUL" <nospam-jeanpaulbrine@hotmail.com> a écrit dans le message de
news: %23rU7VNiyEHA.3024@TK2MSFTNGP14.phx.gbl...

Bonjour,
Je souhaite mettre automatiquement le nom de l'onglet dans une cellule.
Y-a-il un "truc facile" pour cela. Je ne connais pas grand chose en VBA.
Merci infiniment.
Jean-Paul

Bonjour à toi aussi, *JEAN-PAUL*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

Pas besoin de VBA pour ce faire :
dans ta cellule A1:
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)

Cela te convient-il ?


--
Bien cordialement,
==================================== P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour,
Je souhaite mettre automatiquement le nom de l'onglet dans une
cellule. Y-a-il un "truc facile" pour cela. Je ne connais pas grand
chose en VBA. Merci infiniment.
Jean-Paul