séparation onglet par fichier

Question

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? 


Configuration: Windows 7 / Chrome 53.0.2785.143

laure m · Answer

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

Séparation onglet par fichier

1 réponse

Discussions similaires

Newsletters