Chemin réseau

[Maxime]

Bonjour,
j'aimerais détecter dans Workbooks beforeopen si le classeur que j'ouvre se trouve dans un répertoire particulier.
Je ne veux pas tenir compte de la lettre du chemin! Est ce possible?

Exemple:
Le fichier se trouve dans C:\\Repetoire1\\repetoire2\\repertoire3
Je veux tester si il se trouve dans Repetoire1\\repetoire2\\repertoire3.
Est ce possible?

Merci!

Maxime

 

[flo2002]

Je pense que c'est impossible car sinon il ne sait pas dans quel lecteur cherché!

 

[f]

essaie ça (actualiser la variable vrepertoire avant)et tiens moi au courant:
Sub essai()
vrepertoire = 'Documents and Settings\\fl170417\\Bureau'
vrepertoir = Right(ActiveWorkbook.path, Len(ActiveWorkbook.path) - 3)
If vrepertoire = Right(ActiveWorkbook.path, Len(ActiveWorkbook.path) - 3) Then
MsgBox 'c'est le meme repertoire'
Else
MsgBox 'ce n'est pas le meme repertoire'
End If
End Sub