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 Subapres 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é"
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
je clique sur debugage et elle me surligne
je suis un gros debutant... (j ai commence le codage en VB il y a 2 jours...... )
Code : Sélectionner tout - Visualiser dans une fenêtre à part "Sheets(l).Copy after:=Worksheets(Worksheets.Count)".
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
Partager