Signaler

Séparation onglet par fichier

Posez votre question laure m - Dernière réponse le 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 
Utile
+0
moins plus
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
Ajouter un commentaire

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 !