Conversion de formule en VBA

[taisherg]

Bonjour,

L'objectif de ma formule est de récupérer la valeur d'un fichier pour l'afficher dans un autre.

Cette formule a nécessairement une partie dynamique puique le nom du fichier peut varier. Pour le moment, je récupére le nom du fichier dans une cellule nommée FICH.

La formule (sans dynamique parce que je sais pas comment faire 😱 ) :

=INDEX('C:\Fichiers\[Fichier xxx.xls]Données'!$B$2:$BC$56;EQUIV($D11;'C:\Fichiers\[Fichier xxx.xls]Données'!$A$2:$A$56);(EQUIV(PERIODE;'C:\Fichiers\[Fichier xxx.xls]Données'!$B$1:$BC$1)))"

PERIODE fait référence à la cellule $G$6

Ce que j'aimerais, c'est la transcrire en VBA afin de pouvoir faire varier la référence du fichier :

Cells(1, 1).formula = "=INDEX('" & FICH & "Données'!$B$2:$BC$56;EQUIV($D11;'" & FICH & "Données'!$A$2:$A$56);(EQUIV(PERIODE;'" & FICH & "Données'!$B$1:$BC$1)))"

Voilà la problèmatique... Comptant sur vous pour trouver la ou les solutions !

Par avance merci de vos retours.

Taisherg

 

[Gorfael]

Re : Conversion de formule en VBA

Salut taisherg et le forum
Sans garantie puisque j'ai la flemme de tester et que je ne connais pas les données exactes

Range("A1").formulalocal="INDEX('C:\Fichiers\[" & FICH & ".xls]Données'!$B$2:$BC$56;EQUIV($D11;'C:\Fichiers\[" & FICH & ".xls]Données'!$A$2:$A$56);(EQUIV(PERIODE;'C:\Fichiers\[" & FICH & ".xls]Données'!$B$1:$BC$1)))"

A+