Re salut J-luc,
Il semblerait que tu n’es pas lu le Charte du Forum.
Si tu es nouveau sur ce forum, la premiere chose a faire est de se renseigner sur son fonctionnement. Tu trouveras un raccourci vers cette charte en haut a droite de la page.
Si c’est pas la premiere fois que tu viens, tu n’as pas du avoir beaucoup de reponse.
T’ayant deja repondu ce matin sur ce meme sujet, j’attendais de tes nouvelles (sur le meme fil) et si tu avais t’autres questions je t’aurais repondu avec plaisir (comme tous ceux qui repondent aux questions sur ce forum).
N’etant jamais rancunier je te repond une nouvelle fois en esperant savoir si ton probleme est resolu.
Dim i, Niveau, Niveau_Desire As Integer
Dim Pa As String
Niveau_Desire = 2
Pa = "F:\niveau3\niveau2\niveau1.xls"
For i = 1 To Len(Pa) - 1
If Mid(Pa, Len(Pa) - i, 1) = "\" Then
Niveau = Niveau + 1
If Niveau = Niveau_Desire Then
Pa = Right(Pa, i + 1)
Exit For
End If
End If
Next i
MsgBox Pa
Si tu as d’autres questions n’hesites et surtout lis la Charte.
A++, Sylsyl.
P.S.:le "Application.DefaultPath" ne marche pas ?