Lier un cellule au nom du fichier

[maxviard]

Bonjour,
Je souhaite donner à une cellule le nom du fichier dans lequel elle se trouve.

Ex: mon fichier s'appel : PIC Paris
et je veux que ma cellule 'C1' s'appel de même.

J'ai pas trouvé de fonction ou de macro me le permettant pour l'instant. Pourtant ça semble simple...

En fouinant, j'ai trouvé sur le forum, cette option: =LIRE.CELLULE(66;!C1)
Le problème c’est qu’elle me renvoie dans C1 : PIC Paris.xls
Et le .xls m’empêche le bon fonctionnement au niveau des macros suivantes (et je ne peux pas y toucher).

Donc si quelqu'un connaît une astuce pour enlever ce .xls, ou mieux encore trouver la fonction ou la macro qui me donne directement le nom du fichier dans lequel je suis.

Merci d’avance

Maxime

 

[Compte Supprimé 979]

Re : Lier un cellule au nom du fichier

Salut,

Dans un module il te suffit de mettre la fonction suivante :

Function NomFic()
  Application.Volatile
  NomFic = ActiveWorkbook.Name
  NomFic = Left(NomFic, InStr(1, NomFic, ".xls") - 1)
End Function

Dans la cellule C1, tu mets : =NomFic()

Et voilà 😉

 

[Catrice]

Re : Lier un cellule au nom du fichier

Bonsoir,

voici différentes solutions pour afficher le nom du classeur dans la feuille :

La solution que tu utilises en modifiant la formule :
=GAUCHE(LIRE.CELLULE(66;!C1);NBCAR(LIRE.CELLULE(66;!C1))-4)

Dans la feuille de calcul directement :
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;TROUVE("]";CELLULE("filename";A1))-TROUVE("[";CELLULE("filename";A1))-5)

ou

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

 

[maxviard]

Re : Lier un cellule au nom du fichier

Merci bcp à tous les deux,
j'ai pu résoudre mon pb avec les solutions que vous avez proposées.

merci de votre rapidité 😉

Maxime