Discussion :

[victorzecat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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!!

[tedo01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[victorzecat]

Bonjour Merci pour votre réponse

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

[tedo01]

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 ).