ouvrir un autre fichier excel et copier les données

[nicroq]

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

 

[Pierrot93]

Re : ouvrir un autre fichier excel et copier les données

Bonjour,

petite remarque au passage, pas top d'utiliser "name" comme nom de variable alors que c'est un mot réservé vba...

bon après midi
@+

 

[nicroq]

Re : ouvrir un autre fichier excel et copier les données

merci pour l info!!
Par contre cela ne fixe pas mon probleme...

cordialement

 

[Pierrot93]

Re : ouvrir un autre fichier excel et copier les données

re,

bah... pas sur ... modifie peut étre déjà le nom de la variable... Après voir aussi la réaction d'excel avec 2 fichiers .log d'ouverts...

 

[nicroq]

Re : ouvrir un autre fichier excel et copier les données

non ca ne marche toujours pas ...

 

[nicroq]

Re : ouvrir un autre fichier excel et copier les données

c est bon ca marche vous aviez raison et il fallait juste enlever les guilllemet apres !!
merci bcq!

bonne soirée