nom de fichier inserer

[Thierry TRIBOLET]

Bonjour à tous,

Je souhaiterais que le nom du fichier dans lequel je travaille apparaîsse dans un cellule.
Y-a-t'il moyen ?

Merci à vous.

Thierry

 

[Pascal76]

Bonjour

Voici la formule

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

Il faut que le fichier soit enregistré obligatoirement

Bon courage

Pascal

 

[andré]

Salut Thierry,

La formule : =CELLULE("nomfichier";A1) te donne le chemin complet.
Si tu ne veux que le nom du fichier il te suffit d'en extraire la partie qui t'intéresse.

Ândré.

 

[andré]

Toujours les mêmes (lol) !

 

[Pascal76]

Et oui André

On arrose ça ??

Pascal

 

[Jean-Marie]

Bonjour

Oui en formule =Cellule("nomfichier";A1), le fichier doit-être enregistré, tu auras l'arborescence du fichier + le nom de la feuille.

=STXT(CELLULE("nomfichier";A1);CHERCHE("[";CELLULE("nomfichier";A1))+1;CHERCHE("]";CELLULE("nomfichier";A1))+1-CHERCHE("[";CELLULE("nomfichier";A1))-2)

Il y a d'autres posts qui traitent du sujet.

@+Jean-Marie

 

[andré]

Peut-être un peu plus court : =DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

Quant à l'arrosage, c'est parti mon kiki !

Ândré.

 

[Thierry TRIBOLET]

Salut à tous.

Un grand merci pour votre aide !

Cela marche !

A+

Thierry

 

[@+Thierry]

Bonjour Thierry, Ândré, Pascal, le Forum

Vu que j'ai entendu dire qu'on arrosait par ici, je me pointe avec une solution VBAesque à la façon "Monsieur Plus"!!

En plus pour un Thierry

Option Explicit

Sub FileNamePathInHeadingAndCell()
Dim TheFullPath As String
Dim TheName As String
Dim WS As Worksheet

  With ThisWorkbook
  TheFullPath = .FullName
  TheName = .Name

    For Each WS In .Worksheets
     With WS
       With .PageSetup
       .LeftHeader = TheFullPath
       .RightHeader = TheName
       End With
     .Range("A1") = TheFullPath
     .Range("A2") = TheName
     End With
    Next
  End With

End Sub

Cette macro mettra dans toutes les Entêtes de toutes les feuilles du classeurs : En haut à droite Le Nom, En Haut à Gauche le chemin Complet avec ke nom, et aussi dans toutes les cellules A1 et A2 la même chose ...

Bon alors c'est quand qu'on arrose ça ?

Bon Aprèm
@+Thierry

 

[@+Thierry]

Arf Sorry j'ai oublié Jean-Marie qui est de la fête aussi

@+Thierry

 

[andré]

Salut @+Thierry,

Fais donc un petit saut par chez moi, je ne quitte plus la maison de la journée.
JM est également le bienvenu, ainsi que tous ceux qui partagent les mêmes "idéaux" que nous (on risque d'être nombreux).

Ândré.

 

[Jean-Marie]

Re...

Merci de cette invitation, moi je t'invite sur le t'chat.

@+Jean-Marie

 

[andré]

Hélas JL, je n'aime que les chiens !