WBA Fichier par Onglet : "Erreur d'éxécution 1004 la methode copy de la cla

courtoisy74 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour
J'ai une macro afin de créer un fichier par onglet.
J'ai uniquement 4 onglet et j'ai la macro qui plante pour les 2 derniers onglet avec le message suivant :
"Erreur d'éxécution 1004 la methode copy de la classe worksheet a échoué"



Quelqu'un a t-il une solution
ci joint Macro

Sub saveOnglet()

Dim ws
Dim newWk As Workbook

For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
ws.Copy newWk.Sheets(1)
newWk.SaveAs (ws.Name & ".xls")
newWk.Close
Set newWk = Nothing
Next ws

End Sub

Merci par avance
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
le code me semble correct. Peux-tu partager un fichier avec lequel tu as cette erreur?
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

essaie ceci: 

Option Explicit
Sub saveOnglet()
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 & ".xlsx")
        newWk.Close
        Set newWk = Nothing
    Next ws
End Sub

0