Nom du classeur Excel dans une cellule

Je confirme ce que dit Mike-31. Il n'y a pas plus simple que cette formulation, sauf avec du VBA (voir mon message #5).
Ma fonction est légèrement différente mais aboutit au même résultat.
Michel

Re,

J'ai apporté une explication au post précédent pour supprimer l'extension.
par formule difficile de faire plus court, cette formule est plus courte, et pour afficher ou supprimer l'extension la même règle s'applique. -1 à la fin affiche l'extension
-5 supprime l'extension de 3 caractères comme .xls et -6 les extensions de 4 caractères comme .xlsx

=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename"))*{-1;1})-5)

autrement par VBA mais es ce la peine

Merci Mic mais c'est bien compliqué.

Ce n'est pas par flemme de resaisir la formule (je peux toujours copier/coller le texte), mais j'aurais préféré quelque chose de plus simple pour ne pas rebuter ceux qui recevront le fichier.

Avec Excel 2007, j'aurais simplement coché l'option Première page différente et cliqué sur le bouton Nom du fichier.

Essayez ça :
=STXT(A1;CHERCHE("[";CELLULE("filename";A1))+1;CHERCHE("]";CELLULE("filename";A1))-CHERCHE("[";CELLULE("filename";A1))-1)

Merci Mike pour votre réponse rapide, mais est-ce qu'il n'y aurait pas une formule plus simple ?
A+

Salut,

place cette formule dans une cellule qui te donnera le nom du fichier et son extension ex Classeur.xls

=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1)

et cette formule te donnera uniquement le nom du fichier sans l'extension pour les versions excel antérieure à 2007
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-5)

pour les version 2007 et 2010 remplacer le -5 à la fin par -6

=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-6)

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.