[VBA-E] Affecter une partie du contenu d'une cellule à une autre.

J'ai découvert ce forum la semaine dernière, et je le trouve formidable (comme ses contributeurs du reste).:P
J'ai trouvé des réponses à des questions que je me posais, et du coup je me suis inscrit pour participer à ce forum.
Voici un petit problème sur lequel je butte depuis quelques jours:
A la cellule "A1" de la feuille "Destination" du classeur "Class2", je voudrais affecter les 8 premiers caractères de la cellule "B2" de la feuille "Origine" du classeur "Class1".
J'ai bien trouvé une solution en utilisant Copy, mais c'est trop lourd.
En une ligne est-ce faisable?:(
Merci d'avance.

Essaie un truc du genre

Code:

---

1 2	Workbooks("Class2").Sheets("Destination").Cells(1,1).value = Left(Workbooks("Class1").Sheets("Origine").Cells(2,2).value,8)

---

Evidemment, ce code suppose que tes 2 classuers et tes 2 feuilles existent
Et aussi que les classeurs soient ouvert
Pour lesouvir via la macro, tu fais un truc du genre

Code:

---

1 2	Application.Workbooks.Open("Class1")

---

Quand tu as finis, tu fais pareil

Code:

---

1 2	Application.Workbooks.Close("Class1")

---

Evidemment, ma réponsesuppose que tes classeurs sont au même endroit
Si ils sont dans des répertories différents, il faut rajouter le chemin devant le nom

Exemple :

Code:

---

1 2	Application.Workbooks.Open("C:\DossierTest\MonClasseur.xls")

---

Après tu peux aussi mettre ton chemin en variable constante dès ledébut de ton programme si tu as besoin de l'utiliser plusieurs fois afin de pouvoir modifier ton codetrès rapidement en cas de besoin

Code:

---

1 2 3 4 5 6

Const monChemin as string = "C:\DossierTest\"   Sub monModule() Application.Workbooks.Open(monChemin & "MonClasseur.xls") End Sub

---

ça marche ... et sur une seule ligne.:king:
Merci bien.;)