Sub Macro1()
Dim chem As String 'déclare la variable chem (CHEMin)
Dim nc As Byte 'déclae la variabe nc (Nombre de Caratère du dernier sous-dossier)
Dim nd As String 'e'dclare la variable nd (Nombre deDossiers)
Dim nchem As String 'déclare la variable chem (nouveau CHEMin)
chem = ThisWorkbook.Path 'définit la variable chem
For x = 0 To 100 'boucle sur 100 dossiers
On Error GoTo suite 'en cas d'erreur va à l'étiquette suite
'définit la variable nd (crée un tableau en séparant chaque fois qu'il y a le caractère "\")
nd = Split(chem, "\", -1)(x) 'quand x va dépasser le nombre de dossiers, cela va provoquer une erreur
Next x 'prochain dossier de la boucle
suite:
nc = Len(Split(chem, "\", -1)(x - 1)) 'définit le nombre de caractères du dernier sous-dossier
nchem = Left(chem, Len(chem) - (nc + 1)) 'définit la variable nchem
End Sub