Discussion :

[bobby94]

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]

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

[bobby94]

bonjour et merci de ta reponse ouskel.

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]

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]

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]

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)