[Excel]Mettre une variable dans une fonction

Version imprimable

13/04/2006, 15h15
soad029

[Excel]Mettre une variable dans une fonction
Bonjour tout le monde !

Voilà, j'ai une fonction sous excel du type :

Code:

='C:\Mars\[DUPOND Jean.xls]Feuil1'!$D$108

Elle permet de récupérer la valeur de la cellule D108 de la feuil1 du fichier Dupond jean.xls.

J'aimerai que la partie "DUPOND jean" de la fonction soit remplacer par un lien d'une cellule contenant justement la valeur "DUPOND Jean" du style :

Code:

='C:\Mars\[A2]Feuil1'!$D$108

La cellule A2 contenant le fameux dupond jean.

Sinon j'ai testé en VBA, mais ça marche toujours pas :
Code:

1 2 3 cellule = """='[" & nom & " .xls]Feuil!R108C4""" ActiveCell.FormulaR1C1 = cellule
Un grand merci à ceux qui pourront m'aider par ce que je vois vraiment plus du tout comment faire.
13/04/2006, 15h39
soad029

Salut ouskel'n'or et merci d'avoir répondu !

J'ai peur de ne pas bien comprendre, dans ton code il n'y a pas de référence au fichier ou l'on va chercher l'info, il y a juste la feuille et la cellule à aller chercher, mais pas le nom du fichier, non ?
13/04/2006, 16h11
random

=INDIRECT(ADRESSE(108;4;1;VRAI;"monchemin\" & macellule & "nomdefeuille")
13/04/2006, 16h15
ouskel'n'or

Je croyais que tu mettais ton nom de fichier dans la feuille "Feuil1" cellule A1... Dans l'exemple que je t'ai donné, c'est ainsi que je le voyais

A+
13/04/2006, 17h21
soad029

Merci de vos réponses, c'est vraiment très sympa !

J'ai vraiment du mal à comprendre la formule Random, j'ai fait :

Code:

=INDIRECT(ADRESSE(108;4;1;VRAI;"c:\";b4;"Feuil1")

Mais en vain. Comment je pourrais utiliser cette fonction pour pointer sur, attention ça va être compliqué :

Le fichier Excel dont le nom se trouve à la cellule B4 se trouvant sur le répertoire C:\. Et pointer sur la cellule D108 de la feuille "Feuil1".

Pour te répondre ouskel'n'or, je devrais utiliser cette fonction sur d'autre cellule que la cellule B4, donc le nom du fichier changera à chaque fois.

En tout cas, merci encore !!
13/04/2006, 17h52
SilkyRoad

bonsoir

Tu peux tester cette synthaxe . Le nom de la variable est dans la cellule B4 , par exemple Dupond jean.

remarque :
Le classeur doit etre ouvert pour que cela fonctionne

Code:

=INDIRECT("'C:\Documents and Settings\michel\dossier\["&B4&".xls]Feuil1'!$D$108")

Sinon par macro , si le classeur contenant la valeur à récupérer est fermé

Code:

MsgBox ExecuteExcel4Macro("'C:\Documents and Settings\michel\dossier\[" & Range("B4") & ".xls]Feuil1'!R108C4")

bonne soiree
michel
13/04/2006, 17h56
random

dans un premier temps laisse tomber indirect et concentre toi sur adresse
'C:\Mars\
=INDIRECT(ADRESSE(108;4;1;VRAI;"c:\";b4;"Feuil1")
remplace c:\ par c:\mars\
dans ta cellule b4 il doit y avoir Dupontjean
quand tu auras bien saisi adresse et obtenu le résultat
avec la bonne adresse
il suffit de faire indirect(adresse(xxx))
14/04/2006, 11h34
soad029

Code:

MsgBox ExecuteExcel4Macro("'C:\Documents and Settings\michel\dossier\[" & Range("B4") & ".xls]Feuil1'!R108C4")

Cette méthode marche très bien !! Merci beaucoup à tous en tout cas !
14/04/2006, 11h51
soad029
J'aurais une dernière petite requête à vous formuler, comment je pourrais utiliser ce code dans une fonction ?

Du style, dans ma cellule Excel je tape

Code:

=LIEN(B7)

Code de ma fonction :
Code:

1 2 3 4 sub lien(cellule) LIEN = ExecuteExcel4Macro("'C:\mars\[" & cellule & ".xls]Feuil1'!R108C4") end sub
Mais quand je fais ça, j'ai le message #valeur dans ma cellule
14/04/2006, 12h00
soad029

Non bah c'est bon en faite, j'ai adapté la macro à mon besoin.

Merci encore !