Modifier la cellule de destination!

Bonjour à tous,

Mon code tourne nickel. Seul bémol, certain classeurs excel sur lesquels je copie automatiquement des données n'ont pas la même cellule de destination....

Code:

---

wbk.Sheets(ComboBox2.Value).[A68].PasteSpecial xlPasteValues

---

Ceci est la ligne de code pour coller en A68: La combobox est en fait une liste des mois, mois qui sont également sur le classeur excel par feuille.

Cette ligne tourne nickel.

Je souhaiterais maintenant, que la cellule de destination soit non plus A68,

mais renommée par la valeur de la combobox + "R".

Je m'explique prenons le mois de juin, la cellule A68 s'appelle: JUNER
Septembre: SEPTEMBERR

etc...

JE LES AI DÉJÀ TOUTES RENOMMÉES.

Mon idée de code était donc:

Code:

---

wbk.Sheets(ComboBox2.Value).["JUNER"].PasteSpecial xlPasteValues

---

Et en pratique:

Code:

---

wbk.Sheets(ComboBox2.Value).[(ComboBox2.Value) & "R"].PasteSpecial xlPasteValues

---

Cela ne fonctionne pas... Une âme charitable aurait une idée de correction???

MERCI D'AVANCE!!

Bonjour,

Avec Range :

Code:

---

1 2	wbk.Sheets(ComboBox2.Value).Range(ComboBox2.Value & "R").PasteSpecial xlPasteValues

---

Hervé.

C'est tellement évident... Ca m'apprendra à jamais prendre du recul sur mon code :)

Merci beaucoup Hervé!

Re,

La fonction Evaluate (les crochets appelle la fonction) évalue relativement bien l'argument passé mais pas à 100 % :-(

Hervé.