Séparation onglet par fichier

Fermé

laure m - 19 oct. 2016 à 18:17
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?

A voir également:

Séparation onglet par fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

1 réponse

Réponse 1 / 1

laure m
19 oct. 2016 à 18:18

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

Discussions similaires

comment donner les droits sur fichier partage

comment ouvrir un fichier CBR

Question PIX

Discussions similaires

Newsletters