"Erreur d'éxécution 1004 la methode copy de la classe worksheet a échoué"

**bobby94** · 19/12/2007, 10h17

bonjour à tous.
et merci d'avance à tout ceux qui prendront ne serait ce que le temps de me lire.
mon probleme concerne une copie de feuille existante dans mon classeur excel.
je voudrais créer une 100 aine de copie avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub addsheetbis(titre As Variant, nom As Variant, l As Integer)
Sheets(l).Copy after:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
    .Name = nom & titre
        Union(.Range("C5:I10"), .Range("C12:I15"), .Range("C17:I18"), .Range("C20:I22")).HorizontalAlignment = xlRight
        Union(.Range("C5:I10"), .Range("C12:I15"), .Range("C17:I18"), .Range("C20:I22")) = "-"
        End With
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub creationbis()
Dim l As Integer
Dim titre As Variant
Dim f As Integer
Dim nom As Variant
Dim m As Integer
 
 
 
nom = Array("a1 ", "a2 ", "a3 ", "a4 ", "a5 ", "a6 ", "a7 ", "a8 ", "a9 ", "a10 ")
titre = Array("a", "b", "c", "d", "e", _
"f", "g", "h", "i", "j", "k", "l")
 
 
Application.ScreenUpdating = False
    For m = 0 To UBound(nom) Step 1
    For f = 0 To UBound(titre) Step 1
    For l = 9 To 9
    Call addsheetbis(titre(f), nom(m), l)
    Next
    Next
    Next
End Sub

apres l'execution de ce code, la macro crée les pages mais s arrete au nom "a3" avec le titre "j" en me mettant "Erreur d'éxécution 1004 la methode copy de la classe worksheet a échoué"

je clique sur debugage et elle me surligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Sheets(l).Copy after:=Worksheets(Worksheets.Count)".

je suis un gros debutant... (j ai commence le codage en VB il y a 2 jours...... )
donc je ne vois pas ce qu il y a d'incorrect dans cette ligne... et je me dis que vu que ca marche pour la premiere 20 aine de page, pourquoi pas alors les autres???

ce que j ai essaye... c'est de fermer le fichier et le reouvrir apres pour enlever les traces des feuilles créées et suprimées (d apres les conseils d un collegue), mais rien n'y fait.

si vous avez des idees, des reflexions, je vous en serais vraiment reconnaissant.

merci bp.

bobby.

windows xp
excel 2003
Microsoft VB 6.3

**ouskel'n'or** · 19/12/2007, 11h46

Cette feuille n'existe-t-elle pas déjà, cela ressemble à une erreur d'indice.

**bobby94** · 19/12/2007, 11h56

bonjour et merci de ta reponse ouskel.

Envoyé par ouskel'n'or

Cette feuille n'existe-t-elle pas déjà, cela ressemble à une erreur d'indice.

malheureusement non...
aucune page présente dans ce classeur excel avec ce nom la.
d ailleurs durant tout mes tests, a chaque fois la macro s'est bloquée... mais parfois pas toujours au meme endroit, ce qui me laisse penser que ce n'est pas un probleme d appelation de feuille.

**ucfoutu** · 19/12/2007, 12h10

Bonjour,

Rien à voir avec le problème, mais j'adore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For l = 9 To 9

**bobby94** · 19/12/2007, 12h16

Envoyé par ucfoutu

Bonjour,

Rien à voir avec le problème, mais j'adore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For l = 9 To 9

comme je l avais dit je suis debutant...
je mets 9 il me met qu il veut un "To" ... je lui rajoute un 9! systeme D!

**ouskel'n'or** · 19/12/2007, 12h44

Alors tu peux remplacer ta boucle par un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Call addsheetbis(titre(f), nom(m), 9)

Moi je ne suis pas comme certain, j'me moque pas des débutants... je me souviens ! J'ai pas la mémoire défaillante comme certains

(salut uccomplètementfoutue)

**bobby94** · 19/12/2007, 12h48

effectivement c'est plus efficace comme ca, et ca m'evite un "for next".
merci de l'astuce.

**ouskel'n'or** · 19/12/2007, 12h51

Pour le "vrai" problème, pourrais-tu nous montrer ta macro addsheetbis ?
A+

**bobby94** · 19/12/2007, 12h57

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub addsheetbis(titre As Variant, nom As Variant, l As Integer)
Sheets(l).Copy after:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
    .Name = nom & titre
        Union(.Range("C5:I10"), .Range("C12:I15"), .Range("C17:I18"), .Range("C20:I22")).HorizontalAlignment = xlRight
        Union(.Range("C5:I10"), .Range("C12:I15"), .Range("C17:I18"), .Range("C20:I22")) = "-"
        End With
End Sub

**ucfoutu** · 19/12/2007, 13h10

Peux-tu nous dire combien de feuilles sont déjà présentes lorsque tu lances ta procédure ?

**ouskel'n'or** · 19/12/2007, 13h30

Ajoute un DoEvents après la création de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets(l).Copy after:=Worksheets(Worksheets.Count)
DoEvents
'... la suite

Tu dis
A+

NB - Jète un oeil dans l'aide à DoEvents

Tu peux aussi mettre en début de la macro Sub creationbis()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.screenUpDating = false

et sur la dernière ligne de la même macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.screenUpDating = True

**bobby94** · 19/12/2007, 14h23

Envoyé par ucfoutu

Peux-tu nous dire combien de feuilles sont déjà présentes lorsque tu lances ta procédure ?

il y a deja 10 pages de présentes.

je vais tenter le Doevents pour voir si ca change qquechose, merci du conseil.

**ucfoutu** · 19/12/2007, 17h22

On dirait bien qu'Excel n'arrive pas à tout avaler d'un coup :

http://support.microsoft.com/kb/210684/fr

MS préconise d'enregistrer et réouvrir de vez en cuando.