Séparation onglet par fichier

laure m -  
 laure m -
Bonjour,
De mon côté la macro s'arrête de fonctionner au bout du 15ème onglets, je ne comprends pas pourquoi.
J'ai le droit à erreur d'exécution 1004.
Est ce que ça vous dit quelque chose?


A voir également:

1 réponse

Réponse 1 / 1
laure m
 
Sub SEPARATION()
Dim ws
Dim newWk As Workbook

For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
ws.Copy newWk.Sheets(1)
newWk.SaveAs (ThisWorkbook.Path & "\" & ws.Name & ".xls")
newWk.Close
Set newWk = Nothing
Next ws

End Sub
0