Entrée la valeur d'une cellule d'un autre classeur dans une variable

Bonjour,

Dans un classeur toto.xls, feuille1 j'ai la valeur 500 en B2.
Dans une macro, je voudrais pouvoir utiliser cette valeur pour faire un produit
A = X * var_B2

Je pensais à quelque chose du genre:

Code:

---

1 2	dim var_B2 As Range set var_B2 = Workbooks("toto.xls").Sheets("feuille1").Range("B2").Value

---

Mais ca ne marche pas :/

Bonjour.


Le type de var_B2 est incorrect. Cela ne doit pas être un objet mais une donnée. Type Single, par exemple. Ou alors tu ne prends pas .Value...

Après, cela devrait marcher si

• le nom du classeur est correct
• si le classeur est ouvert et dans la même application Excel
• si le nom de feuille est correct.

Tu n'as pas indiqué si ton code lève une erreur.

Cdlt,

PGZ

Heureusement que le we approche, je fais vraiment n'importe quoi, merci de ta patience PGZ. Voici ce que j'ai fait et ca marche bien!

Code:

---

1 2 3 4 5 6

Dim tjm_fin As String   Windows("DSIC-Outil-Planif RH_V0.2.xlsx").Activate Sheets("TJM Brut par Producteur").Select Range("B2").Select tjm_fin = Selection.Value

---

Je n'arrive jamais à avoir la bonne syntaxe pour faire

tjm_fin = Workbooks("").Sheets(""). etc.

Re,

Normalement,

Code:

---

tjm_fin = Workbooks("DSIC-Outil-Planif RH_V0.2.xlsx").WorkSheets("TJM Brut par Producteur").Range("B2").Value

---

Devrait fonctionner.

PGZ