Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

AxelViens

XLDnaute Nouveau
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..
 
Solution
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 =...
Trier par date Trier par votes
OK, probablement une histoire de "/" vs "\"
VB: 
Option Explicit

Sub a()
    MsgBox Dossier
End Sub

Function Dossier() As String
    Dim TSpl() As String
   
    TSpl = Split(ThisWorkbook.Path, "\")
   
    If UBound(TSpl) = -1 Then
        TSpl = Split(ThisWorkbook.Path, "/")
    End If
   
    If UBound(TSpl) = -1 Then
        Dossier = "N/A"
    Else
        Dossier = TSpl(UBound(TSpl))
    End If
End Function

Edit: En cellule écrire: =Dossier()
 
Dernière édition:
Vote positif 0 Vote négatif

Cela me renvoi toujours l'adresse en entière quand il est sur le cloud .. :/
 
Vote positif 0 Vote négatif
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 = TSpl(UBound(TSpl))
    Else
        Dossier = ThisWorkbook.Path
    End If
End Function
 
Vote positif 0 Vote négatif
Solution
Bonjour,

Dudu2 à dit:
Pour info le dossier c'est User, tous les autres sont des sous-dossiers.
Cliquez pour agrandir...
Ah ben non, tous les autres ne sont pas des sous-dossiers !
Si un sous-dossier n'est pas un dossier, alors un sous-sous-dossier n'est pas un sous-dossier, etc.
😅


Sinon, je propose ça, basé sur #4 de Dranreb :
VB: 
Sub test()
    MsgBox "Ce classeur est dans le dossier """ & Dossier & """"
End Sub

Function Dossier() As String
Dim TSpl() As String
    TSpl = Split(Replace(ThisWorkbook.Path, "\", "/"), "/")
    Dossier = TSpl(UBound(TSpl))
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
C'est vrai qu'un Replace raccourcit bien le code.
VB: 
Function Dossier() As String
    Dim TSpl() As String
    
    'Fichier non encore enregistré
    If Len(ThisWorkbook.Path) = 0 Then
        Dossier = "N/A"
        
    'Fichier avec Path Windows ou Réseau
    Else
        TSpl = Split(Replace(ThisWorkbook.Path, "\", "/"), "/")
        Dossier = TSpl(UBound(TSpl))
    End If
End Function
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
T
  • Résolu(e)
XL 2019 Changement de chemin
Réponses
10
Affichages
1 K
ChTi160
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
  • Question Question
Microsoft 365 Changer la référence de liaison par macro
Réponses
5
Affichages
4 K
goube
D
  • Question Question
VBA Recherche des derniers fichiers dans un dossier suivant le nom
Réponses
0
Affichages
1 K
DidierLG
D
  • Question Question
récupérer arborescence de dossier a un certain niveau
Réponses
1
Affichages
1 K
gsx-air
D
  • Question Question
RESOLU Récupérer nom de fichier sans le chemin ni l'extension
Réponses
4
Affichages
10 K
dss
D
E
  • Question Question
Enregistrement au format PDF sans nom de fichier prédéfini
Réponses
13
Affichages
3 K
etpisculrien
E
S
  • Question Question
Récupération données d'un classeur différent à nom variable
Réponses
1
Affichages
690
steven02880
S
P
  • Question Question
Recherche Cellule dans tous les onglets et me donner le nom de l'onglet
Réponses
10
Affichages
2 K
Pam69
P
  • Question Question
Vérifier si classeur déjà ouvert (fichier distant HTTP)
Réponses
4
Affichages
2 K
s8fx
M
  • Question Question
Récupérer le nom du deuxième dossier parent
Réponses
5
Affichages
3 K
MJ13
  • Question Question
Formule ou VBA pour récupérer le niveau N d'un nom de dossier.
Réponses
7
Affichages
1 K
MJ13
R
  • Question Question
Transfert des données selon nom variable d'un classeur
2
Réponses
16
Affichages
3 K
roybaf
R
  • Question Question
cherche le nom du classeur précédent sélsectionné
Réponses
0
Affichages
486
didus
P
  • Question Question
Récupérer le path d'un dossier avec seulement une partie de son nom
Réponses
4
Affichages
2 K
p.pat27
P
  • Question Question
Copie de donnees d'un ClasseurA vers un Classeur B par une macro dans Classeur C
Réponses
13
Affichages
2 K
MartiFab
T
  • Question Question
Trouvé le cheminement d'un classeur (enregistré) sans le nom du classeur
Réponses
2
Affichages
842
CBernardT
  • Question Question
Planning multi-rôle et mono-feuille ( « time-line » unique de 13 mois)
Réponses
8
Affichages
11 K
zorglubxp
B
  • Question Question
Copie d'un onglet existant avec ajout de date dans le nom de l'onglet
Réponses
3
Affichages
2 K
JNP
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…