Inputbox ouvre raccourcis ?

[Temjeh]

Bonjourle forum

J'aimerais savoir si il existe une solution
pour que excel reconnaisse les raccourcis de fichier(.xls) comme un fichier.

Je m'explique:

Dans un dossier qui comporte plus de 200 tableurs je voudrais faire du classement en faisant des sous-dossiers et divisé ces 200 en catégories.

Le prob c'est que j'ai besoin qu'il reste dans le même répertoire
..."C:\Program Files\Territoire 2004\Territoires"
car il sont tous relier avec des macros....donc je ne peut les changer de place.

J'ai essayé de les classés dans des sous-répertoirs et de laisser un raccourcis de chacun dans mon répertoir maitre.

Voici le début de la macro qui bug:
Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function

....

Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du territoir à ouvrir")
ChDir "C:\Program Files\Territoire 2004\Territoires"
If FileExists("C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls") = False Then
MsgBox "Fichier Inexistant"

Le prob c'est que si il y a un raccourcis il me met MsgBox "Fichier Inexistant"

Y-a-t-il un moyen de lui dire de l'ouvrir comme un fichier pour qu'il exécute la macro ??

Merci beaucoup

A++

Temjeh

 

[galopin01]

up