XL 2019 Nom du fichier dans une cellule

  • Initiateur de la discussion Initiateur de la discussion Tioneb_h
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tioneb_h

XLDnaute Nouveau
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
 
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))
 
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)
 
Dernière édition:
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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
153
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Retour