Discussion :

[AidezMoiSvp]

Bonjour,

Je souhaiterais pouvoir remonter le chemin d'accès du fichier actif.

Pour l'instant j'ai ça :

Code :

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

1
2
3
4
5
6
Sub chemin()
Dim fichier As String
 
fichier = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, ".") - 1)
MsgBox fichier
End Sub

Mais ce code ne remonte que une lettre par une lettre. Or j'aimerais qu'il remonte d'un \ par un \.

Comment faire


Merci

[ZebreLoup]

Le code actuel, ne remonte pas d'une lettre, il enlève l'extension. La seule chose c'est qu'il manque une vérification que "." est bien trouvé.
Mais tu peux faire la même chose en cherchant "\".

[AidezMoiSvp]

J'ai essayé avec un "\" mais il ne remonte que d'une lettre par une lettre.

Code :

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

1
2
3
4
5
6
Sub chemin()
Dim fichier As String
 
fichier = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 2)
MsgBox fichier
End Sub

[ZebreLoup]

Je ne sais pas comment tu utilises ton code, mais à mon avis le problème c'est que tu repars toujours du chemin initial. Utilise une fonction du genre :

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
Public Function CheminParent(ByVal chemin As String) As String
    Dim slashPos As Integer
 
    'On vérifie d'abord qu'il n'y a pas de \ en dernière position
    If Right(chemin, 1) = "\" Then chemin = Left(chemin, Len(chemin) - 1)
 
    'Ensuite on cherche la position du dernier \
    slashPos = InStrRev(chemin, "\")
 
    If slashPos = 0 Then
        CheminParent = chemin
    Else
        CheminParent = Left(chemin, slashPos - 1)
    End If
End Function

[AidezMoiSvp]

Merci pour cette réponse.

Cependant... je ne suis pas très calé en vba Quelques notions mais... rien de plus

comment je récupère mon chemin dans un msgbox ensuite ?

Merci

[ZebreLoup]

Tu fais

Code :

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

MsgBox CheminParent(ThisWorkbook.Path)

Et si par exemple tu veux remonter de 2 crans :

Code :

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

1
2
3
4
Dim s As String
s = CheminParent(ThisWorkbook.Path)
s = CheminParent(s)
MsgBox s