Menu

Séparation onglet par fichier [Fermé]

laure m - 19 oct. 2016 à 18:17 - Dernière réponse :  laure m
- 19 oct. 2016 à 18:18
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?


Afficher la suite 

1 réponse

0
Utile
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