Nom de mon fichier dans une cellule (excel)

[Lych]

Bonjour!
Je voudrais récupérer le nom de mon fichier et l'indiquer dans une cellule!
j'ai essayer avec application.getopenfilename mais ca m'ennuie car en fait il ouvre une boite de dialogue pour ouvrir un fichier or moi je veux juste le nom de mon fichier qui est déjà ouvert!
Comment est-ce que l'on fait ca?

merci

 

[PascalXLD]

Bonjour

une formule avec le classeur enregistré

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

Bon courage

 

[jp14]

Bonjour

Cette formule donne le nom du fichier
=CELLULE('nomfichier')
Il faut ensuite retrouver la position de [ et de ] pour extraire le nom du fichier
JP

 

[pierrejean]

bonjour Lych Pascal Jp

en Vba

Private Sub Workbook_Open()
Sheets('Feuil1').Range('A1') = Me.Name
End Sub

et le nom du fichier sera en A1 feuille1 à l'ouverture

 

[Davidc57]

Bonjour à tous,

Une autre manière serait :

Range('A1') = Activeworkbook.name

A+
David

 

[Lych]

merci à tous ca fonctionne super bien!

 

[Brigitte]

Bonjour,

J'arrive après la bataille, mais bon je le mets quand même :

STXT(CELLULE('nomfichier';A1);TROUVE(']';CELLULE('nomfichier';A1))+1;32)

Bon we.

 

[PascalXLD]

re

Brigitte

La question était le nom du classeur et non le nom de la feuille :woohoo:

Allez un tour dans le ZOP

 

[Brigitte]

Pffffffffffffff...

 

[PascalXLD]

RE

Tiens Brigitte pour t'éviter de chercher, je suis trop bon avec toi .....

Lien supprimé

Bonne soirée

 

[Brigitte]

Même pas mal (bis)...

 

[andré]

Salut à vous (trop nombreux pour vous citer tous, mais le coeur y est),

Puisque c'est vendredi soir (bientôt), je vous offre ma petite astuce !

Moi, je nomme tous mes fichiers 'martin', comme cela je n'ai plus aucun problème pour me souvenir de leur nom.
Il faut évidement les placer dans des classeurs différents.
On ne peut tout avoir !

Mais comment trouver le bon classeur ?
Pas de problème non plus, je les nomme tous 'arthur'.
Simple, non ?

Â+

 

[PascalXLD]

RE

Maintenant je comprends pourquoi tu te plaignais de ne pas avoir assez de lettres pour toutes les partitions de ton disque dur

 

[andré]

Pascal, tu as tout compris, et que c'est agréable de rencontrer quelqu'un qui me comprenne.

Je dois bien t'avouer que cette idée m'est venue du fait que j'appelle 'chérie' toutes les filles que je connais.
Comme cela, aussi, plus de problème !

Pourtant avec le temps qu'il fait sur la Belgique, un impair serait le bienvenu.

Pourquoi faire compliqué ?

Â+