Chemin réseau

Maxime · 28 Juin 2006

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 · 28 Juin 2006

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

f · 28 Juin 2006

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

Chemin réseau

Maxime

XLDnaute Nouveau

flo2002

XLDnaute Impliqué

f

Guest

Discussions similaires