cellule

[fred]

Bonjour,

Qq'un aurait il une idée sur la modification que je dois apporter à ce code pour que ca marche ?

ActiveCell.FormulaR1C1 = "='" & Worksheets.Name & "'!K4"

Je voudrais en effet selectionner la cellule K4 mais ça ne fonctionne pas.

Merci,

Fred

 

[Ti]

déjà remplace FormulaR1C1 par Formula, ensuite, si tu écris Worksheets.name, tu auras forcément une erreur, puisque tu ne dis pas de quelle feuille il s'agit.
Tu peux écrire ceci
Worksheets(1).Name
ou Worksheets("Feuil1").Name
enfin vire les apostrophes que tu as mises pour je ne sais quelle raison...
donc ça devrait donner :

ActiveCell.Formula = "=" & Worksheets(1).Name & "!K4"

et là ça marche