Worksheets.copy plante

[sebienfait]

Salut,

Pkoi ce petit bout de code fait il planter l'execution:

Sub test()
For i = 1 To 300
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
Next i
End Sub

J'ai le message :
"Erreur 1004: La méthode Copy de la classe Worksheets a échoué"
à la 249eme copie, sans raison apparente

Ca ne veut bien repartir que si je ferme le document, le rouvre, puis re-execute la macro

Pire:
Apres le plantage à la 249 copie, je supprime toutes les copies à la main
et je faut une copie de la feuille à la main
Et paf ! même erreur alors qu'il ne reste plus qu'une feuille

Au secours, j'en ai besoin

Merci
Seb

 

[Bernard]

Bonsoir Sebienfait

J'ai testé ta macro et elle met en place 300 copies de la feuille "modele" sans problème !

Peut être une affaire de mémoire ????

Cordialement

Bernard

 

[Pat5]

Bonsoir Sebienfait et Bernard

J'ai 512 Mo de RAM et moi ça plante à la 51 èmme feuille ?????

Salut

Pat5 ;o)

 

[sebienfait]

Après recherche, c'est un bug connu d'Excel :

http://support.microsoft.com/default.aspx?scid=kb;en-us;210684

Faut que je change de méthode.

Ce qui m'étonne est que je travaille sous office XP.

Comme quoi, microsoft corrige pas tout d'une version à l'autre