XL 2019 Nom du fichier dans une cellule

Tioneb_h · 1 Avril 2022

Bonjour,

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

VB:

Function NomFichier() As String

NomFichier = ThisWorkbook.Name

End Function

merci d'avance,
Ben

st007 · 1 Avril 2022

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

job75 · 1 Avril 2022

Bonjour Tioneb_h,

VB:

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

A+

Tioneb_h · 1 Avril 2022

job75 à dit:

Bonjour Tioneb_h,

VB:

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

A+

super merci

JM27 · 1 Avril 2022

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 · 1 Avril 2022

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 · 1 Avril 2022

Bonjour Job
effectivement je regarde et modifie

fanch55 · 1 Avril 2022

Bonjour à tous,
une variante:

VB:

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

JM27 · 1 Avril 2022

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.

VB:

=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 · 1 Avril 2022

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

VB:

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

job75 · 2 Avril 2022

Bonjour Tioneb_h, JM27, fanch55,

En définissant le nom NomLong par :

Code:

=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 :

Code:

=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+

XL 2019 Nom du fichier dans une cellule

Tioneb_h

XLDnaute Nouveau

st007

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Tioneb_h

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires