{VBA excel}OUverture,Extraction et Copie d'un fichier Excel dans un autre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub createnewworkbook() Dim newwb As Workbook Dim fl As Worksheet Dim Cell As Range Set newwb = Workbooks.Add("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls") Set fl = newwb.Worksheets("5") For Each Cell In fl.Range("A14") MsgBox Cell.Value Next   End Sub

---

Voila avec ce code j'ouvre un fichier excel et je recupere la donnée
mais je voudrais recopier cette donnée dans un autre fichier et non la faire apparaitre en msgbox

merci pr le coup de main

Déjà, tu dois savoir où coller ta donnée. Pour le fichier, je pens que c'est dans newwb
Ensuite, si ce n'est qu'une seule donnée, tu n'as pas besoin d'instancier une plage. Ceci suffit amplement ;)

Code:

---

Msgbox fl.Range("A14").value

---

Donc, trouve l'endroit où coller et mets-le ici

Code:

---

newwb.Range(Là où tu veux coller) = fl.Range("A14").value

---

épicétou
A+

Merci