overture_de_fichier_générique

[karim]

salut forum
j'ai un problème et j'espère trouver une solution :
je suis en train de créer un macro dont il faut ouvrir un fichier x.xls et de copier n fois son contenu dans un fichier y.xls
comment je peux proceder donnez moi une idée
merci à tous

 

[sleeper]

Sub ouverture()
fichier = Range("A1").Value
nb_copie = Range("B1").Value

Workbooks.Open Filename:=fichier & ".xls"
Workbooks("x.xls").Activate
Cells.Copy
Workbooks(fichier & ".xls").Activate
While nb_copie <> 0
ActiveCell.PasteSpecial xlPasteAll
Wend
End Sub

si tu place le nom du fichier en A1 et le nombre de copies en B1, ça devrait marcher... enfin normalement !!