evaluate avec chaine de caractère

Bonjour

Désolé d'avoir comme 1er post une question, mais je suis pressé par le temps et n'arrive pas à trouver de solution sur le net (ah bravo la politesse !).

Je voudrais savoir s'il est possible d'utiliser Evaluate avec une chaine de caractère et une propriété.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'j'ai une variable qui contient une chaine de caractère Dim cell_val_cherchee As String cell_val_cherchee = "ActiveWorkbook.Worksheets(1).Range(""F7"")" 'elle est en String pour une bonne raison   'declaration d'une variable pour cellule Dim cell_quelconque As Range Set cell_quelconque = ThisWorkbook.Worksheets(1).Range("A2")   'ce que je veux obtenir : cell_quelconque = ActiveWorkbook.Worksheets(1).Range("F7").Offset(, ColCour - 1) 'en bref, rentrer une valeur d'une cellule dans une autre 'mais je veux le faire avec ma variable cell_val_cherchee   'Donc j'essaye avec evaluate : cell_quelconque = Evaluate(cell_val_cherchee & ".Offset(, ColCour - 1)") 'mais cela ne marche pas

---

Vous allez vous dire mais pourquoi veut-il faire comme ça?

Et bien pour expliquer en gros cell_quelconque appartient à un fichier excel.
Dans la macro de ce fichier, je vais ouvrir un autre fichier excel dans lequel sera cell_val_cherchee .
Comme je fais appel à une procédure et que l'adresse de cell_val_cherchee va changer,
je préfère passer cela par paramètre dans l'appel.
Vous allez me dire de mettre cell_val_cherchee en Range,
j'ai essayé mais ça récupère une plage du 1er fichier excel, et non pas celui qui est ouvert, c'est pourquoi j'utilise une variable de type String.

Je veux donc interpréter cette chaine ainsi qu'un offset.
Cela est-il possible ?
Merci

J'ai rien compris a ton problème.
Mais je vais essayer
tu ne peux pas utiliser

Code:

---

cell_quelconque = ActiveWorkbook.Worksheets(1).Range("F7").Offset(, ColCour - 1)

---

Car tu veux travailler dans un autre classeur
remplace

Code:

---

ActiveWorkbook

---

par

Code:

---

workbooks("NomdeTonDeuxièmeClasseur")

---

Sinon je ne pense pas que tu pourra utiliser ta chaine de caractère il te faudrais travailler sur des adresses
Pour plein de raison
Evaluate si tu utilise l'aide F1 s'utilise ainsi
application.evaluate
de deux
il faut lui donner comme argument

Citation:

---

Nom de l'objet, conformément aux conventions de dénomination de Microsoft Excel.

---

Bonsoir,
Je ne sais pas comment tu peux t'en servir mais ta chaine, je l'aurais écrite comme ça :

Code:

---

cell_val_cherchee = "ActiveWorkbook.Worksheets(1).Range(" & Chr(147) & "F7" & Chr(147) & ")"

---

mais quoi en faire ?, je vais surveiller la discussion, je vais peut-etre en apprendre
bonne soirée

Merci beaucoup pour vos réponses.

Citation:

---

Envoyé par Krovax

J'ai rien compris a ton problème.
Mais je vais essayer
tu ne peux pas utiliser

Code:

---

cell_quelconque = ActiveWorkbook.Worksheets(1).Range("F7").Offset(, ColCour - 1)

---

Car tu veux travailler dans un autre classeur
remplace

Code:

---

ActiveWorkbook

---

par

Code:

---

workbooks("NomdeTonDeuxièmeClasseur")

---

Sinon je ne pense pas que tu pourra utiliser ta chaine de caractère il te faudrais travailler sur des adresses
Pour plein de raison
Evaluate si tu utilise l'aide F1 s'utilise ainsi
application.evaluate
de deux
il faut lui donner comme argument

---

Le souci c'est que je dois utiliser ActiveWorkbook car cela correspond au fichier excel qui vient d'être ouvert (plusieurs fichiers seront ouverts).
Sinon pour expliquer en gros le problème :
Dans une procédure , j'ouvre un fichier excel correspond à un certain mois
Je récupère des données de celui-ci.
J'utilise donc cette procédure car l'endroit la plage où je vais stocker les données et la plage du fichier excel ouvert changent toutes les deux.
Je les fais donc passer en paramètre.

Je ne peux pas faire passer la plage du fichier excel en paramètre car j'utilise ActiveWorkbook. Je la fais donc passer en chaine de caractère, mais le couac c'est que je n'arrive pas à l'interpréter avec Evaluate.

Citation:

---

Envoyé par jrjr72

je dois utiliser ActiveWorkbook car cela correspond au fichier excel qui vient d'être ouvert.

---

Cette affirmation est fausse.

En créant une instance de ton fichier au moment de son ouverture, tu n'auras plus jamais besoin de ActiveWorkbook.