Nom de l'onglet dans une cellule

Salut VM,

Un exemple :

Sub Affiche_Nom_Onglet_Actif()
[A1] = ActiveSheet.Name
End Sub

Serge

"VM" <v.mercy@chi70.atrium.rss.fr> a écrit dans le message de news:
1057236706.686901@proxy2...

Bonjour

Est-il possible d'afficher automatiquement le nom de l'onglet courant dans
une cellule ?

Merci
a+
vincent

Bonjour,
sans macro !!!

=CELLULE("FILENAME";A1)

ex : C:Mes documents[Class1.xls]Feuil1

'-----------------------------------------
ou bien :
le chemin seul : C:Mes documents

=GAUCHE(CELLULE("FILENAME";A1);TROUVE("[";CELLULE
("FILENAME";A1))-2)

'-----------------------------------------
le classeur seul : Class1.xls

=STXT(GAUCHE(CELLULE("FILENAME";A3);TROUVE("]";CELLULE
("FILENAME";A3))-1);1+TROUVE("[";CELLULE
("FILENAME";A3));32)

'-----------------------------------------
l'onglet seul : Feuil1

=STXT(CELLULE("FILENAME";A1);TROUVE("]";CELLULE
("FILENAME";A1))+1;32)

'-----------------------------------------

Contrainte : il faut que le classeur ait été enregistré au
moins une fois !!!!
(c-a-d il existe au niveau de l'explorateur.)

@+

-----Message d'origine-----
Bonjour

Est-il possible d'afficher automatiquement le nom de
l'onglet courant dans

une cellule ?

Merci
a+
vincent


.