Reprendre le nom d'un fichier dans une cellule.

Je voudrai récupérer le nom d'un fichier (sans l'extension) dans une cellule
Si le fichier a été, au préalable, enregistré :

=SUBSTITUE(STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;TROU
VE("]";CELLULE("filename";A1))-TROUVE("[";CELLULE("filename";A1))-1);".xls";"")

AV

Bonjour

Sub nomsansext()
'le classeur doit être au moins une fois enregistré
x = ActiveWorkbook.Name
ActiveCell.Value = Left(x, Len(x) - 4)
End Sub

exemple ici : http://cjoint.com/?beoR1e8rbV


salutations

Gilbert

"Angéla" <yyangela.valla@teppe.org> a écrit dans le message de
news:usrzN%23l8EHA.3476@TK2MSFTNGP15.phx.gbl...

Bonjour à tous et meilleurs voeux!!!!

Je voudrai récupérer le nom d'un fichier (sans l'extension) dans une
cellule

Excel??? Comment dois je m'y prendre???

Merci d'avance.
Angéla

bjour

C'est bien l'ex. Mais il ne s'ouvre pas.

Mum
"gilbert" <stpspamgilbert.roinel@wanadoo.fr> a écrit dans le message de
news: enDT9Hm8EHA.1260@TK2MSFTNGP12.phx.gbl...

Bonjour

Sub nomsansext()
'le classeur doit être au moins une fois enregistré
x = ActiveWorkbook.Name
ActiveCell.Value = Left(x, Len(x) - 4)
End Sub

exemple ici : http://cjoint.com/?beoR1e8rbV


salutations

Gilbert

"Angéla" <yyangela.valla@teppe.org> a écrit dans le message de
news:usrzN%23l8EHA.3476@TK2MSFTNGP15.phx.gbl...

Bonjour à tous et meilleurs voeux!!!!

Je voudrai récupérer le nom d'un fichier (sans l'extension) dans une
cellule

Excel??? Comment dois je m'y prendre???

Merci d'avance.
Angéla