Signaler

Séparation onglet par fichier

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


Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !