fonction personalisée renvoyant un lien vers un autre classeur

Bonjour,

Je souhaiterai créer une fonction personnalisée me permettant de construire un lien vers un autre classeur.

J'ai déjà construit ce bout de code;

Code:

---

1 2 3 4 5

Function chem(Chemin As String, Fichier As String, Feuille As String, Zone As Variant) As String   chem = "'" & Chemin & "\" & Fichier & Feuille & Zone   End Function

---

mais son résultat n'est pas reconnu par excel comme un chemin:

Par exemple:

Avec

A1: C:\Users\Toto\Desktop
A2: [SOURCE.xls]
A3: Feuil1'!
A4: $A$1:$B$3

Code:

---

=chem(A1;A2;A3;A4)

---

me renvoi bien:

'C:\Users\Toto\Desktop\[SOURCE.xls]Feuil1'!$A$1:$B$3

Toutefois si j'utilise cette fonction dans une recherchev:

Code:

---

=RECHERCHEV(A1;chem(A1;A2;A3;A4);2;0)

---

J'ai un message d'erreur de type #VALEUR!

Alors que si j'écris ma recherchev avec le vrai lien:

Code:

---

=RECHERCHEV(A2;'C:\Users\Toto\Desktop\[SOURCE.xls]Feuil1'!$A$1:$B$3;2;0)

---

J'obtiens bien la valeur recherchée...

Quelle étape ai je loupé?

Merci à tous pour vos réponses!!

Bonjour,
Ta fonction chem renvoit une chaîne de caractères, alors que la fonction RECHERCHEV attend un Range en paramètre.
Pour corriger ça, il faut transformer le résultat de chem comme suit :

Code:

---

=RECHERCHEV(A1;INDIRECT(chem(A1;A2;A3;A4));2;0)

---

Bonjour Merci pour votre réponse

En apportant ce correctif, la fonction recherchev me renvoi maintenant l'erreur #REF...

Re-bonjour,
Malheureusement la fonction INDIRECT ne fonctionne que si la classeur cible est ouvert, et j'ai fait mes tests de cette manière...
J'ai trouvé cette bibliothèque de fonctions qui contient l'équivallent à la fonctin INDIRECT, mais fonctionnant sur des classeurs fermés : http://xcell05.free.fr/downloads/Morefunc.zip
Je ne peux pas la télécharger pour le moment, je ferai des tests avec plus tard (si personne n'en fait avant :)).