Code : Sélectionner tout - Visualiser dans une fenêtre à part
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