Discussion :

[tigerno]

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 :

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

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.

[Theze]

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 :

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

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