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

AxelViens · 1 Avril 2022

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..

Dudu2 · 1 Avril 2022

Je me suis trompé dans le code (trop vite et pas réfléchi).
Celui-ci devrait couvrir tous les cas:
- Pas de Path
- Path limité au Drive Windows
- Path Windows
- Path Réseau

VB:

Option Explicit

Sub a()
    MsgBox Dossier
End Sub

Function Dossier() As String
    Dim TSpl() As String
    
    'Fichier non encore enregistré
    If Len(ThisWorkbook.Path) = 0 Then
        Dossier = "N/A"
        Exit Function
    End If
    
    'Séparateur Windows "\"
    If InStr(ThisWorkbook.Path, "\") > 0 Then
        TSpl = Split(ThisWorkbook.Path, "\")
    End If
    
    'Séparateur Réseau "/"
    If InStr(ThisWorkbook.Path, "/") > 0 Then
        TSpl = Split(ThisWorkbook.Path, "/")
    End If
    
    If Not (Not TSpl) Then
        Dossier =...

st007 · 1 Avril 2022

this workbook.path non ?

st007 · 1 Avril 2022

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

Dranreb · 1 Avril 2022

Bonjour.
À essayer :

VB:

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

Phil69970 · 1 Avril 2022

Bonjour à tous

Ma version

VB:

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

@Phil69970

AxelViens · 1 Avril 2022

Dranreb à dit:

Bonjour.
À essayer :

VB:

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 · 1 Avril 2022

Re

Et que le nom du fichier

VB:

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 · 1 Avril 2022

Phil69970 à dit:

Re

Et que le nom du fichier

VB:

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 · 1 Avril 2022

Toujours en formule en fonction de filename(A1)

AxelViens · 1 Avril 2022

st007 à dit:
Toujours en formule en fonction de filename(A1)

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

Dudu2 · 1 Avril 2022

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 · 1 Avril 2022

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

AxelViens · 1 Avril 2022

Dudu2 à dit:
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 · 1 Avril 2022

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

VB:

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 · 1 Avril 2022

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

VB:

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.

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

AxelViens

XLDnaute Nouveau

Dudu2

st007

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

AxelViens

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

AxelViens

XLDnaute Nouveau

st007

XLDnaute Barbatruc

Pièces jointes

AxelViens

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

AxelViens

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

AxelViens

XLDnaute Nouveau

Discussions similaires