Parametre Range dans une fonction

Bonjour,

J'essaye de passer un parametre Range sur la fonction ci-dessous :

Code:

---

1 2 3 4 5

Function Param(plage As Range, ligne As integer) As integer   param = 5   End Function

---

Lorsque j'appelle cette fonction dans une feuille Excell avec une plage qui fait partie du classeur : pas de problème.

Lorsque je fais appel à cette fonction dans une feuille excell avec une plage faisant d'un partie d'un autre classeur ouvert : pas de problème.

Lorsque j'appelle cette fonction avec une plage faisant partie d'un autre classeur fermé j'ai une erreur #VALEUR. (bien que le chemin vers le classeur apparaisse dans sa totalité à l'appel de la fontion)

Existe t-il un moyen d'utiliser un parametre Range sur un classeur ferme ?
Mon but etant de récupérer les valeurs du chemin , de la feuille, cellule pour faire une requète ADO dessus

Merci d'avance.

Bonjour,
Recherche sur le forum et dans la FAQ avec 'travail sur classeur fermer', tu va trouver plein de trucs.
A+

J'ai dèja lu le tutoriel de SilkyRoad sur la lecture sur des classeur fermés.
Mais il n'utilise pas de fonctions mais des subroutine où les parametres du calseur sont codés en dur et pas passé comme parametre d'une fonction.

bonjour

Citation:

---

J'ai dèja lu le tutoriel de SilkyRoad sur la lecture sur des classeur fermés.
Mais il n'utilise pas de fonctions mais des subroutine où les parametres du calseur sont codés en dur et pas passé comme parametre d'une fonction.

---

Ce ne sont que des exemples. Personne ne t'empêche de les adapter ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Function LireCellule_ClasseurFerme( _ Chemin As String, _ Fichier As String, _ Feuille As String, _ Cellule As Variant) As Variant   Application.Volatile   Dim Source As Object, Rst As Object, ADOCommand As Object Dim Cible As String   Feuille = Feuille & "$" Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _ Cellule.Address(0, 0, xlA1, 0)   Set Source = CreateObject("ADODB.Connection") Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Chemin & "\" & Fichier & _ ";Extended Properties=""Excel 8.0;HDR=No;"";"   Set ADOCommand = CreateObject("ADODB.Command") With ADOCommand .ActiveConnection = Source .CommandText = "SELECT * FROM [" & Feuille & Cible & "]" End With   Set Rst = CreateObject("ADODB.Recordset") '1 = adOpenKeyset, 3 = adLockOptimistic Rst.Open ADOCommand, , 1, 3 Set Rst = Source.Execute("[" & Feuille & Cible & "]")   LireCellule_ClasseurFerme = Rst(0).Value   Rst.Close Source.Close Set Source = Nothing Set Rst = Nothing Set ADOCommand = Nothing End Function

---

et tu peux insérer ce type de formule dans une cellule
exemple:
=LireCellule_ClasseurFerme(A1;A2;A3;G7)

A1 correspond au chemin:
C:\Documents and Settings\mimi\dossier

A2 correspond au nom du classeur:
ListeCriteres.xls

A3 correspond au nom de la feuille:
Feuil1

G7 correspond à la cellule qui doit être lue dans le classeur fermé

Merci SilkyRoad,

J'avais bien sûr pensé à cette solution qui marche effectivement.
Mais le gros inconvénient est qu'on est obligé de demander à l'utilisateur d'entrer 4 paramètres décrivant le range, alors que pour faire un RECHERCHEV (par exemple) on utilise qu'un paramètre pour décrire le range.

J'aurais peut être du mieux préciser que c'est le passage du parametre range qui me pose problème.

Le fait est que le passage du range par parametre de fonction marche, sauf dans le cas d'un accès à un classeur fermé. Alors que le passage du même paramètre avec RECHERCHEV marche même sur un Range d'un classeur fermé.

J'utilise Excell 2000 (version 9)
As tu essayé le code que j'ai écrit avec une autre version de Excell ?
Peut être que ça marche différemment avec une version plus récente ?

Citation:

---

Mais le gros inconvénient est qu'on est obligé de demander à l'utilisateur d'entrer 4 paramètres décrivant le range

---

Qui t'interdit de modifier la fonction pour indiquer le Chemin/Nomclasseur/NomFeuille/NomCellule sur un paramètre au lieu de 4 ?


bonne soirée