ouvrir un autre fichier excel et copier les données

Bonjour a tous et merci pour votre aide

voici ma problématique

je souhaiterai ouvrir un autre fichier (.log) pour copier les données dans mon fichier initial (macro.xls):
Sub ouvrir()

Dim Nomfichier As String
Dim nomfichiersuite As String
Dim name As String
'Nomfichier = Range("E1").Value & ".Log"
Nomfichier = Range("E1").Value
nomfichiersuite = ".Log"
name = Nomfichier & nomfichiersuite
MsgBox name

Workbooks("macro.xls").Worksheets("feuil3").Cells.ClearContents
Workbooks.Open ("C:\Documents and Settings\") & name
Workbooks(name).Worksheets(Nomfichier).Cells.Copy _
Workbooks("macro.xls").Worksheets("feuil3").Range("A1")
Workbooks("name").Close False

End Sub

j'arrive a ouvrir le fichier correctemtn mais Workbooks(name) il n'aime pas trop et je ne comprend pas pourquoi?
merci pour votre aide
cordialement