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