Bonsoir,
à tester: (pas VBS)
Windows("fichier1.xls" ).Activate
Set wb = ActiveWorkbook
For Each ss In wb.Sheets
Application.CutCopyMode = False
ss.Copy
ActiveWorkbook.SaveAs Filename:= _
"Mettre ici le chemin" & ss.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("fichier1.xls" ).Activate
Next
End Sub
Cordialement
Message édité par seniorpapou le 16-01-2007 à 21:35:23