Insérer le nom du dossier dans une cellule

[pogote]

Bonjour,

Après avoir recherché sur le forum je n'ai pas trouvé réponse à ma simple question :

Comment insérer le nom du dossier dans une cellule ?

Je ne souhaite pas insérer le nom du fichier, ni celui de l'onglet, ni le chemin d'accès (ça j'ai trouvé), mais uniquement le nom du dossier mère comme dans l'image ci dessous.



N'étant pas du tout compétent en terme de macro, si quelqu'un à une solution de ce type, merci d'être précis dans votre description.

D'avance Merci
et à bientôt....

 

[pierrejean]

Re : Insérer le nom du dossier dans une cellule

Bonjour pogote

Avec une fonction personnalisée

 

[JHA]

Re : Insérer le nom du dossier dans une cellule

Bonjour à tous,

A essayer:

=STXT(STXT(CELLULE("nomfichier";A1);CHERCHE("[";CELLULE("nomfichier";A1);1)+1;99);1;CHERCHE("]";STXT(CELLULE("nomfichier";A1);CHERCHE("[";CELLULE("nomfichier";A1);1)+2;99)))

Edit: Oups! pas compris j'ai donné le nom de fichier

JHA

 

[sousou]

Re : Insérer le nom du dossier dans une cellule

bonjour

Function dossier()
chemin = ThisWorkbook.Path
dossier = Right(chemin, Len(chemin) - InStrRev(chemin, "\"))
End Function

Pas vue pierre jean

 

[pierrejean]

Re : Insérer le nom du dossier dans une cellule

Re

Pas de problème sousou !
Notre ami aura le choix

 

[pogote]

Re : Insérer le nom du dossier dans une cellule

Et bien merci à vous !

C'est super, ça fonctionne... je ne sais pas comment mais ça fonctionne.

A Bientôt