donner a une variable la valeur d'1 cellule d'1 autre fichier

Bonjour,
je voudrais que ma variable vSaisiesj contienne le text qui est sur un classeur excel différent de celui qui est actif, malheureusement mon code indique une erreur sur la derniere ligne : Erreur d'exécution '1004' : La méthode 'Range' de l'objet '_Global' a échoué.

Code:

---

1 2 3 4 5 6 7 8

Dim NomFic As String Dim Onglet As String Dim chemin As String NomFic = "lanceur.xls" Onglet = "Feuil1" chemin = ThisWorkbook.Path & "\" Dim vSaisiesj As String vSaisiesj = "'" & chemin & "[" & NomFic & "]" & Onglet & "'!" & Range("E20")

---

Comment résoudre ?

Yahi

Bonsoir,

Je pense que cela doit fonctionner comme cela :

Code:

---

vSaisiesj = "'" & chemin & "[" & NomFic & "]" & Onglet & "'!Range(""E20"")"

---

@+

bonjour

La macro que tu utilises permet de créer une formule de liaison dans une cellule.


Pour récupérer le contenu d'une cellule dans une variable, tu peux tester.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim NomFic As String Dim Onglet As String Dim Chemin As String Dim vSaisiesj As String   NomFic = "lanceur.xls" Onglet = "Feuil1" Chemin = ThisWorkbook.Path & "\"   vSaisiesj = ExecuteExcel4Macro("'" & Chemin & "[" & NomFic & "]" & Onglet & _ "'!" & Range("E20").Address(, , xlR1C1))

---

bonne journée
michel

Ok merci c'est parfait !

yahi