Re : Scinder un classeur
Bonjour Sassy et le Forum
met ceci dans un module de ton classeur
(n'oublie pas de faire une sauvegarde avant car ton classeur d'origine n'existera plus!)
Sub Macro1()
'
Dim i%, Nom
'commencer par la dernière feuille
For i = ThisWorkbook.Sheets.Count To 2
Nom = ThisWorkbook.Sheets(i).Name
Sheets(i).Move
ActiveWorkbook.SaveAs Filename:= _
"C:\LeChemin\" & "Nom" & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks(Nom & ".xls").Close False
Next
'il ne reste plus que la première feuille
Nom = ThisWorkbook.Sheets(1).Name
ActiveWorkbook.SaveAs Filename:= _
"C:\LeChemin\" & "Nom" & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Bon courage et à +
Denis