XL 2019 Nom du fichier dans une cellule

[Tioneb_h]

Bonjour,

je voudrais mettre le nom du fichier dans une cellule... mais sans l'extension. Possible ? voici mon code :

Function NomFichier() As String

NomFichier = ThisWorkbook.Name

End Function

merci d'avance,
Ben

 

[st007]

https://www.excel-downloads.com/thr...u-dossier-ou-est-stocke-le-classeur.20066319/

 

[job75]

Bonjour Tioneb_h,

Function NomFichier() As String
Application.Volatile
NomFichier = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
End Function

A+

 

[Tioneb_h]

Bonjour Tioneb_h,

Function NomFichier() As String
Application.Volatile
NomFichier = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
End Function

A+

super merci

 

[JM27]

Bonjour
=DROITE(GAUCHE(CELLULE("filename");CHERCHE(".";CELLULE("filename");1)-1);NBCAR(GAUCHE(CELLULE("filename");CHERCHE(".";CELLULE("filename");1)-1))-CHERCHE("[";GAUCHE(CELLULE("filename");CHERCHE(".";CELLULE("filename");1)-1);1))

 

[job75]

Bonjour JM27,

Attention, il peut y avoir des points dans le nom du fichier sans extension.

Par exemple quand il y a une date au format jj.mm.aaaa

A+

 

[JM27]

Bonjour Job
effectivement je regarde et modifie

 

[fanch55]

Bonjour à tous,
une variante:

=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;TROUVE("]";CELLULE("filename"))-TROUVE("[";CELLULE("filename"))-6)

 

[JM27]

Bonjour
Fanch : comme moi un petit pb dans certain cas
avec un fichier.Xls , a priori cela ne fonctionne pas
je bute aussi sur ce pb
j'ai celle la aussi ( pour le fun), un peu capillo-tractée
mais qui a encore un petit pb dans certains cas ( deux points avant l'extension sur un fichier Xls), pour le reste OK en supposant que l'extension n'a pas plus de 4 caractères.

=GAUCHE(DROITE(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);NBCAR(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1))-CHERCHE("[";GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);1));CHERCHE(".";DROITE(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);NBCAR(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1))-CHERCHE("[";GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);1));NBCAR(DROITE(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);NBCAR(GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1))-CHERCHE("[";GAUCHE(CELLULE("filename");CHERCHE("]";CELLULE("filename");1)-1);1)))-4)-1)

 

[fanch55]

La formule ci-dessous fonctionne avec tous les fichiers d'extension .xl* :

=SUPPRESPACE(GAUCHE(SUBSTITUE(STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;255);".xl";REPT(" ";255));255))

 

[job75]

Bonjour Tioneb_h, JM27, fanch55,

En définissant le nom NomLong par :

=STXT(CELLULE("filename");TROUVE("[";CELLULE("filename"))+1;TROUVE("]";CELLULE("filename"))-TROUVE("[";CELLULE("filename"))-1)

on peut ensuite faire ce qu'on veut, voyez le fichier joint et la formule en B3 :

=GAUCHE(NomLong;TROUVE("|";SUBSTITUE(NomLong;".";"|";NBCAR(NomLong)-NBCAR(SUBSTITUE(NomLong;".";))))-1)

Le caractère "|" ne posera pas de problème car il est interdit dans les noms de fichiers.

Il est utilisé en remplaçant le dernier point.

A+