Discussion :

[Thomas69]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox fl.Range("A14").value

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

épicétou
A+

[Thomas69]

Merci