Discussion :

[Riccota]

Bonjour,
je suis à la recherche d'une macro qui pourrait extraire le nom des 3 derniers dossiers parents d'un fichier, quelque soit le chemin complet
Exemple : chemin entier = c:\document\exemple\...\...\folder1\folder2\folder3\fichier.docx
je voudrai obtenir : folder1 folder2 folder3
Merci d'avance

[Philippe Tulliez]

Bonjour,
Un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub t()
  Const FullName As String = "c:\document\exemple\...\...\folder1\folder2\folder3\fichier.docx"
  Dim Table As Variant
  Dim PathName As String
  Dim n As Integer
  Dim dp As Integer
  Dim Txt As String
  PathName = Left(FullName, InStrRev(FullName, "\") - 1)
  Table = Split(PathName, "\")
  n = Len(PathName) - Len(Replace(PathName, "\", ""))
  For dp = n To n - 2 Step -1
    Txt = Txt & vbCrLf & Table(dp)
  Next
  MsgBox Txt
End Sub