Excel 2003 - Echec méthod copy de la classe worksheet

[JLGCF]

Bonjour,

La macro ci-desous copie autant de feuilles à partir de la feuille "Bilan_001" que de lignes trouvées dans une table de la feuille Calendar. Il y a 62 lignes dans ce tableau et la macro devrait donc créer 62 feuilles.

Je n'arrive pas à comprendre pourquoi cela marche toujours pour les 20 premières valeurs de la table mais mas pour les suivantes.

Cela plante au niveau de la ligne :

Shxx.Copy After:=Sheets(j)

et j'ai le message d'erreur "La méthod copy de la classe worksheet a échoué"

Sub Creation_Balance_sheet_spreadsheet()

Dim i As Long, j As Long
Dim Sh As Worksheet
Dim Shxx As Worksheet
Dim Entity_id As String

Set Sh = ActiveWorkbook.Worksheets("Calendar")
Set Shxx = ActiveWorkbook.Worksheets("Bilan_001")

j = Shxx.Index

Application.ScreenUpdating = False

For i = 16 To Sh.Range("A65535").End(xlUp).Row

Entity_id = Sh.Cells(i, 1).Value
Shxx.Activate
Shxx.Copy After:=Sheets(j)
Sheets(j + 1).Name = "Bilan_" & Entity_id
Sheets(j + 1).Cells(15, 3).Value = Entity_id
Sheets(j + 1).Range(Cells(17, 1), Cells(53, 12)).Name = Sheets(j + 1).Name
Sheets(j + 1).Range(Cells(61, 15), Cells(81, 22)).Name = "PL_" & Entity_id
Sheets(j + 1).Visible = True
j = j + 1

Next i

Application.ScreenUpdating = True

End Sub

Merci pour votre aide

 

[Spitnolan08]

Re : Excel 2003 - Echec méthod copy de la classe worksheet

Bonjour,
Chez moi, ta macro marche impec jusqu'au bout des 62 lignes (Un fichier exemple aurait été bien vu...) mais elle n'accepte pas ces 2 lignes:

'Sheets(j + 1).Range(Cells(17, 1), Cells(53, 12)).Name = Sheets(j + 1).Name
'Sheets(j + 1).Range(Cells(61, 15), Cells(81, 22)).Name = "PL_" & Entity_id

Cordialement