Discussion :

[soad029]

Bonjour tout le monde !

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

Code :

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

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

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

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

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

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.

[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 ?

[random]

=INDIRECT(ADRESSE(108;4;1;VRAI;"monchemin\" & macellule & "nomdefeuille")

[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+

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

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

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

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

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

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

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

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

bonne soiree
michel

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

[soad029]

Code :

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

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 !

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

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

=LIEN(B7)

Code de ma fonction :

Code :

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

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

[soad029]

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

Merci encore !