Récupérer le nom du dossier (sans le chemin complet)

[ogle]

Bonjour le forum,

Je cherche à récupérer le nom du dossier dans lequel se trouve mon fichier excel (attention pas tout le chemin...du coup c'est plus compliqué😉). J'ai construit quelque chose par formule mais c'est assez complexe et pas très au point :

=STXT(STXT(CELLULE("nomfichier";$A$1);1;TROUVE("[";CELLULE("nomfichier";$A$1);1)-2);NBCAR(STXT(CELLULE("nomfichier";$A$1);1;TROUVE("[";CELLULE("nomfichier";$A$1);1)-2))-EQUIV("\";STXT(STXT(CELLULE("nomfichier";$A$1);1;TROUVE("[";CELLULE("nomfichier";$A$1);1)-2);NBCAR(STXT(CELLULE("nomfichier";$A$1);1;TROUVE("[";CELLULE("nomfichier";$A$1);1)-2))-LIGNE(INDIRECT("1:"&NBCAR(STXT(CELLULE("nomfichier";$A$1);1;TROUVE("[";CELLULE("nomfichier";$A$1);1)-2))));1);0)+1;NBCAR(CELLULE("nomfichier";$A$1))-TROUVE("[";CELLULE("nomfichier";$A$1);1)) 😛

J'ai cherché à faire une macro VBA mais je ne trouve pas.
Vous auriez une solution (VBA ou formule pas trop compliquée si possible! ) ?

Merci de votre aide magique 😛🙂

 

[vbacrumble]

Re : Récupérer le nom du dossier (sans le chemin complet)

Bonjour


Nom du classeur

MsgBox ActiveWorkbook.Name

Pour le nom de dossier

MsgBox Split(ActiveWorkbook.FullName, "\")(UBound(Split(ActiveWorkbook.FullName, "\")) - 1)

 

[PascalXLD]

Re : Récupérer le nom du dossier (sans le chemin complet)

Bonjour

peut-être un tour ici

https://www.excel-downloads.com/thr...lasseur-du-repertoire-dans-une-cellule.81051/

 

[vbacrumble]

Re : Récupérer le nom du dossier (sans le chemin complet)

Re



En plus court

Sub nomdossier()
Dim a
a = Split(ActiveWorkbook.FullName, "\")
MsgBox a(UBound(a) - 1)
End Sub

 

[hoerwind]

Re : Récupérer le nom du dossier (sans le chemin complet)

Bonjour,

En nommant (menu Insertion - Nom - Définir) =CELLULE("nomfichier";$A$) par exemple nom :

=STXT(nom;CHERCHE("[";nom)+1;CHERCHE("]";nom)-CHERCHE("[";nom)-1)

 

[ogle]

Re : Récupérer le nom du dossier (sans le chemin complet)

Merci à tous pour toutes ces réponses !!
Voici pour info la solution que je retiens finalement :

Sub Auto_open()
ThisWorkbook.Sheets("xxx").Cells(3, 1).FormulaR1C1 = _
    Replace(Split(ActiveWorkbook.FullName, "\")(UBound(Split(ActiveWorkbook.FullName, "\")) - 1), "_", " ")
End Sub

Vive Excel Download !! 😀🙂

 

[PascalXLD]

Re : Récupérer le nom du dossier (sans le chemin complet)

re

en formule

=STXT(GAUCHE(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))-2);CHERCHE("µ";SUBSTITUE(GAUCHE(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))-2);"\";"µ";NBCAR(GAUCHE(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))-2))-NBCAR(SUBSTITUE(GAUCHE(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))-2);"\";""))))+1;100)

 

[vbacrumble]

Re : Récupérer le nom du dossier (sans le chemin complet)

Re


J'avais oublié le langage macro XL4

Insertion/Nom/Définir/ -> Noms dans le classeur: REPCOURANT

Fait Référence à : =LIRE.DOCUMENT(2)

Addenda:
Pour n'avoir que le nom du dossier courant sans le chemin
(ici cas pour un xls dans Mes Documenst sur un PC sous Vista)
1) Donner à WP la même formule que REPCOURANT
2) Pour REPCOURANT2
=STXT(WP;CHERCHE("§";SUBSTITUE(WP;"\";"§";3))+1;9^9)

WP renvoie : C:\Users\VBACrumble\Documents
REPCOURANT2 renvoie Documents

 

[Pierrot93]

Re : Récupérer le nom du dossier (sans le chemin complet)

Bonjour à tous

une autre solution vba :

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFile(ActiveWorkbook.FullName).parentfolder.Name

bon après midi
@+

 

[PascalXLD]

Re : Récupérer le nom du dossier (sans le chemin complet)

Re


J'avais oublié le langage macro XL4

Insertion/Nom/Définir/ -> Noms dans le classeur: REPCOURANT

Fait Référence à : =LIRE.DOCUMENT(2)

Addenda:
Pour n'avoir que le nom du dossier courant sans le chemin
(ici cas pour un xls dans Mes Documenst sur un PC sous Vista)
1) Donner à WP la même formule que REPCOURANT
2) Pour REPCOURANT2
=STXT(WP;CHERCHE("§";SUBSTITUE(WP;"\";"§";3))+1;9^9)

WP renvoie : C:\Users\VBACrumble\Documents
REPCOURANT2 renvoie Documents

Désolé mais ta formule ne marchera que si tu as que 3 \ dans ton chemin
sinon voir celle que j'ai posté plus haut

 

[vbacrumble]

Re : Récupérer le nom du dossier (sans le chemin complet)

Re



Oui c'est pour cela que j'indiquais précédemment 🙄

(ici cas pour un xls dans Mes Documenst sur un PC sous Vista)

 

[PascalXLD]

Re : Récupérer le nom du dossier (sans le chemin complet)

Re



Oui c'est pour cela que j'indiquais précédemment 🙄

Oui mais c'est très restreignant

Autant prendre un truc qui fait la généralité

Quoi moi ce que j'en dis .....

 

[ogle]

Re : Récupérer le nom du dossier (sans le chemin complet)

Merci à tous pour ces multiples solutions !!

PascalXLD : Même en décomposant ta formule, j'ai du mal à la comprendre. Un peu hardcore donc mais très efficace !! Félicitations !

 

[PascalXLD]

Re : Récupérer le nom du dossier (sans le chemin complet)

PascalXLD : Même en décomposant ta formule, j'ai du mal à la comprendre.

Moi aussi 😀 😀 😀

J'ai récupéré sur le forum une formule dans ce sens et adapté pour ce cas 😛

 

[marie49]

Re : Récupérer le nom du dossier (sans le chemin complet)

Bonjour au forum,

Un grand merci à ce forum : je cherchais également comment obtenir le nom du dossier contenant mon fichier.
J'ai utilisé la formule de PascalXLD qui me convient très bien.

Marie