Créer un classeur a partir de différents fichiers

[Timothé]

Salut,

Voici mon problème: Je voudrais fusionner plusieurs fichiers excel contenant une feuille dans un même fichier excel , j ai fait un enregistrement de macro qui me donne ceci :

ChDir "I:\2003\letallec\sorties"
Workbooks.Open FileName:="\\JUPITER\stages\2003\letallec\sorties\obs.xls"
Sheets("obs").Select
Sheets("obs").Move Before:=Workbooks("result-jb.xls").Sheets(1)
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("ref").Select
Sheets("ref").Move Before:=Workbooks("result-jb.xls").Sheets(1)
Sheets("simulm").Select
Sheets("simulm").Move Before:=Workbooks("result-jb.xls").Sheets(1)


ensuite j'ai mis ce code dans la procedure workbook_open() et a chaque réouverture de mon fichier ca plante sur le Sheets("obs").Select.

Pouvez vous m'aider merci.

 

[sousou]

essaie d'ajouter sheets("obs").activate