XL 2016 Récupérer le nom du dossier ou est stocké le classeur

[AxelViens]

Bonjour,

Je souhaiterais récupérer dans une cellule le nom du dossier ou est stocké mon classeur.

Ex :

C://User/xxx/Dossier1/Sous-Dossier1/Fichier.xlsx --> Sous-Dossier1
C://User/xxx/Dossier1/Sous-Dossier2/Sous-sous-Dossier21/Fichier.xlsx --> Sous-sous-Dossier21

J'ai essayé beaucoup de formule trouvé sur internet , mais aucune ne fonctionne chez moi ..

Si vous avez des idées..

 

[st007]

this workbook.path non ?

 

[st007]

Et en formules, un peu de recherche sur ce forum ...

 

[Dranreb]

Bonjour.
À essayer :

Option Explicit
Function Dossier() As String
   Dim TSpl() As String
   TSpl = Split(ThisWorkbook.Path, "\")
   Dossier = TSpl(UBound(TSpl) - 1)
   End Function

 

[Phil69970]

Bonjour à tous

Ma version

Sub Chemin()
    MsgBox ActiveWorkbook.Path, vbInformation, "Chemin du fichier"
    MsgBox ActiveWorkbook.FullName, vbInformation, "Nom et chemin du fichier"
End Sub

@Phil69970

 

[AxelViens]

Bonjour.
À essayer :

Option Explicit
Function Dossier() As String
   Dim TSpl() As String
   TSpl = Split(ThisWorkbook.Path, "\")
   Dossier = TSpl(UBound(TSpl) - 1)
   End Function

Cela me renvoi 0 dans la cellule.


@st007 --> Cela ne correspond pas a la donnée que je recherche. Merci quand même de ton aide.

@Phil69970 --> Idem , je souhaite récupéré seulement le nom de dossier. Merci quand même 🙂

 

[Phil69970]

Re

Et que le nom du fichier

Sub Nom_Fichier()

    MsgBox ThisWorkbook.Name, vbInformation, "Nom du fichier"

'    MsgBox ActiveWorkbook.Path, vbInformation, "Chemin du fichier"
'    MsgBox ActiveWorkbook.FullName, vbInformation, "Nom et chemin du fichier"

End Sub

@Phil69970

 

[AxelViens]

Re

Et que le nom du fichier

Sub Nom_Fichier()

    MsgBox ThisWorkbook.Name, vbInformation, "Nom du fichier"

'    MsgBox ActiveWorkbook.Path, vbInformation, "Chemin du fichier"
'    MsgBox ActiveWorkbook.FullName, vbInformation, "Nom et chemin du fichier"

End Sub

@Phil69970

Et que le nom du dossier ? Ou trouver une formule type =Droite mais mon nombre de caractère dans le nom du fichier varie. Si je trouve une solution je vous la partagerai aussi.

 

[st007]

Toujours en formule en fonction de filename(A1)

 

[AxelViens]

Toujours en formule en fonction de filename(A1)

Je ne comprend pas , juste a l'ouverture du fichier , toutes les formules plantent..

 

[Dudu2]

Bonjour,

C'est quoi la question précisément ?

Je souhaiterais récupérer dans une cellule le nom du dossier ou est stocké mon classeur.

En VBA ou en formule ?

C://User/xxx/Dossier1/Sous-Dossier1/Fichier.xlsx --> Sous-Dossier1
C://User/xxx/Dossier1/Sous-Dossier2/Sous-sous-Dossier21/Fichier.xlsx --> Sous-sous-Dossier21

C'est quoi le dossier pour toi ?
- User ?
- xxx ?
- Dossier1 ?
Pour info le dossier c'est User, tous les autres sont des sous-dossiers.

 

[st007]

Activer macro xl4 lirecellule, mais les réponses sont là,

 

[AxelViens]

Bonjour,

C'est quoi la question précisément ?

En VBA ou en formule ?


C'est quoi le dossier pour toi ?
- User ?
- xxx ?
- Dossier1 ?
Pour info le dossier c'est User, tous les autres sont des sous-dossiers.

Bonjour, en vba ou en formule. Le dernier sous-dossier dans ce cas.

 

[Dudu2]

Le dernier sous-dossier, en VBA sur la base du code de @Dranreb:

Option Explicit

Sub a()
    MsgBox Dossier
End Sub

Function Dossier() As String
   Dim TSpl() As String
   TSpl = Split(ThisWorkbook.Path, "\")
   Dossier = TSpl(UBound(TSpl))
End Function

Sous réserve que le fichier ne soit pas directement sous une lettre de lecteur qui serait alors récupérée en tant que Dossier.

 

[AxelViens]

Le dernier sous-dossier, en VBA sur la base du code de @Dranreb:

Option Explicit

Sub a()
    MsgBox Dossier
End Sub

Function Dossier() As String
   Dim TSpl() As String
   TSpl = Split(ThisWorkbook.Path, "\")
   Dossier = TSpl(UBound(TSpl))
End Function

Sous réserve que le fichier ne soit pas directement sous une lettre de lecteur qui serait alors récupérée en tant que Dossier.

Cela fonctionne lorsque le fichier est sur un disque réseau. Et ne marche plus lorsqu'on le bascule sur le cloud, cela me renvoi l'adresse complète du fichier.