Formule avec des données dans un autre fichier.

Bonjour,

J'ai un fichier où je souhaite mettre une formule faisant référence à des données d'un autre fichier déjà ouvert.

J'ai enregistré une formule (index équiv) avec l'enregistreur de macro.
Elle fonctionne très bien.

voici le résultat :

Code:

---

1 2 3

Range("A2").Select ActiveCell.FormulaR1C1 = _ "=INDEX('AA.xlsm'!Base,MATCH(RC[-1],'AA.xlsm'!Res,0),3)"

---

Mon souci est que si le fichier AA.xlsm est renommé et si l'on souhaite choisir un autre fichier (ex: AB.xlsm), la macro va planter.

J'ai donc essayé de déclarer le fichier ouvert par Fic=ActiveWorbook.Name et remplacer AA.xlsm par "Fic" dans la formule ci-dessus =INDEX('Fic'!Base,MATCH(RC[-1],'Fic'!Res,0),3).
Mais malheureusement ça ne marche pas.

Quelqu'un aurait-il une idée ?
Merci par avance.

Bonjour,

"Fic" est une variable donc, elle doit être concaténée avec le reste du texte et pas s'y trouver en "dur" donc :

Code:

---

1 2 3 4 5 6

Dim Fic As String   Fic = ActiveWorbook.Name   Range("A2").FormulaR1C1 = "=INDEX('" & Fic & "'!Base,MATCH(RC[-1],'" & Fic & "'!Res,0),3)"

---