Problème récupérer nom de fichier

[Phiph]

Bonjour,
J'aimerais récupérer le nom du fichier en cours d'utilisation et le mettre dans une cellule donnée.

Pour finir, j'aimerais également pouvoir renommer le classeur de ma feuille de calcul.

Je pense faire ça en VBA mais s'il existe un autre moyen n'hésitez pas car je débute.
Merci d'avance
Phiph

 

[Greutof]

Bonjour,


Tupeux récupérer le chemin complet de ton fichier avec : Application.ActiveWorkbook.path.
Une fois que tu as le chemin, tu peux le scinder en plusieurs morceaux avec la fonction Split pour ne garder que le nom du fichier.

Tu peux sauvegarder ton classeur Excel comme suit : Workbooks('toto.xls').Save

 

[Davidc57]

Bonjour Phiph et Greutof,

D'autres idées, par exemple ce code :

Sub nom_fichier_dans_une_case()

Dim nomfichier As String

nomfichier = ActiveWorkbook.Name
Range('A1') = nomfichier

End Sub

Utilise le générateur de macro automatique. Tu démarres l'enregistrement, et tu fais des actions. Ensuite quand tu as fini tes actions, tu arrête l'enregistrement. Aussitôt, le code VBA correspondant à ce que tu viens de faire est visible. En adaptant plus ou moins, ca peut peut-être t'aider.

A+
David

 

[Tibo]

salut PhiPh,

Pour récupérer le nom du fichier :

par formule :

=STXT(CELLULE('nomfichier';A1);TROUVE('[';CELLULE('nomfichier';A1))+1;TROUVE(']';CELLULE('nomfichier';A1))-TROUVE('[';CELLULE('nomfichier';A1))-1)

@+

 

[phiph]

salut,
c'était juste pour dire merci.