Oui, oui, je voulais dire, je pense pouvoir t'aider...
Normal si tu débute que ce soit pas hyper facile!..
alors voila ce que je te propose:
Set xlex = ActiveWorkbook
Set xlnew = Workbooks.Add
xlex.Sheets("nom de ta feuille" ).Copy Before:=Workbooks(xlnew.name).Sheets(1)
xlnew.SaveAs Filename:="ton nom de fichier" (avec le chemin devant, et .xls à la fin)
Ca te va?
Message édité par Gusdabo le 06-07-2005 à 12:59:50