Chemin pour "ExecuteExcel4Macro" dans le cadre d'un réseau interne?

Bonjour à tous, encore lui direz-vous?
Mais c'est tellement sympa ici.

Voici mon souci:

Je récupère ainsi le contenu d'une feuille (Genre répertoire téléphonique)dans un classeur fermé de mon ordi et cela marche bien.

Le but est de pouvoir en faire autant en réseau dans ma société, mais pour trouver le chemin; je n'y arrive pas, ou alors, j'ai comme résultat: #REF.

Ci-dessous ma bidouille:

Dim NUMSHEET As Integer
Dim COLNOM As Integer
Dim COLTEL As Integer
Dim NOM As Variant
Dim NUMERO As String

Private Sub CommandButton1_Click()

NUMSHEET = 1 ' La Feuille 1,2,2 et c.
COLNOM = 1 ' La colonne A
COLTEL = 2 ' La colonne B

For j = 2 To 20 ' Ou plus, ou moins

NOM = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLNOM)

NUMERO = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLTEL)

If NOM <> 0 Then
Worksheets("LISTE").Cells(1 + j, 1) = NOM
Worksheets("LISTE").Cells(1 + j, 2) = NUMERO

End If
Next j
End Sub

L'afffaire coince quand je veux substituer: \\Accueil\RÉPERTOIRE\[Répertoire]Répertoire téléphonique 2004.xls
(Enfin l'adresse d'un autre poste du réseau).

Il y a des ( "[ ' ! .$..\.. Qui manquent quelque part, n'est-il pas?


Merci d'avance de votre aide.

Bonne fin de soirée ou belle journée à vous.

IFFIC