Discussion :

[Zill1975]

Bonjour à tous,

J'espère que vous pouvez m'aider à sortir de ce pétrin.

Considérons 2 fichiers, 12 onglets chacun,
fichier1 et fichier2
Les onglets sont nommés par mois dans chacun des fichiers.

Ce serait tellement facile si le fichier1 ne changeait pas de nom mais ce n'est pas le cas. Son nom et ses onglets sont variables.

Je voudrais placé dans la cellule H15 du fichier2 la valeur de la cellule AT1 de l'onglet actif du fichier1.

Voilà la formule que j'utilsais quand fichier1 et les ongles étaient "stables"

Code :

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

1
2
Range("H15").Select
    ActiveCell.FormulaR1C1 = "='[fichier1.xlsm]janvier'!R1C121"

Hors je pense que je dois utiliser les formules workbooks() et sheets() mais comment les placer dans ma formule ci dessus ?
J'ai attribué les variantes "Wbk" pour le workbook de fichier1 et "Sh" pour l'onglet actif de ce même fichier.

[tedo01]

Bonjour,
Essaie comme ça :

Code :

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

ActiveCell.FormulaR1C1 = "='[" & Wbk.Name & "]" & Sh.Name & "'!R1C121"