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

Question

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

yg_be · Answer

bonjour,
le code me semble correct.  Peux-tu partager un fichier avec lequel tu as cette erreur?

cs_Le Pivert · Answer

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

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

2 réponses

Discussions similaires

Newsletters