BUG sur duplication d'onglet

[benoit.ad]

J'ai une macro qui duplique un onglet (qui sert de modèle) un certain nombre de fois (pas au delà des capacités d'Excel).

Mais, arrivé à la Xeme copie d'onglet, la macro plante; elle ne veut plus le copier. L'erreur peut se produire à la 10eme copie ou à la 30ème, il n'y a pas de logique.

Est-ce un problème de mémoire (Est qu'il existe un moyen de la vider?) ou bien est-ce aute chose?

Merci de votre aide.

[ced600]

Sans ton code on ne peut pas t'aider.
Et donne nous aussi l'erreur que tu obtiens.

[SilkyRoad]

bonjour

peux tu regarder s'il s'agit du même problème que dans ce lien

http://support.microsoft.com/default...b;en-us;210684


bonne journée
michel

[benoit.ad]

Voici un extrait du code

le problème si situe à la ligne

Code :

Worksheets("template").Copy After:=Sheets("template") 'fait une copie de l'onglet

J'ai signalée la ligne par des commentaires en XXXXXXXXXXXXXXXXXXX

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub GENERATION_onglets()
 
  For Compteur = 1 To l
 
    If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
 
      Set fin = ActiveCell.Offset(-1, 0)
      ligne2 = ActiveCell.Offset(-1, 0).Row
      colonne2 = Left$(ActiveCell.Offset(-1, 0).Address(0, 0), (ActiveCell.Offset(-1, 0).Column < 27) + 2)
 
      Sheets("template").Visible = True
      'MsgBox (Sheets.Count)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
      Worksheets("template").Copy After:=Sheets("template") 'fait une copie de l'onglet "template et le place en dernier
      Sheets("template (2)").Name = "Nom temporaire"
      Sheets("Nom temporaire").Select
      Call Deprotect
      Sheets("template").Visible = False
      Worksheets("Recap FP").Select
 
      lignes = ligne & Deuxpoints & ligne2
      'MsgBox (lignes)
      Rows(lignes).Select
      selection.Copy
 
      Sheets("Nom temporaire").Select
      'Mise ne forme -----------------------------------------------
      Rows("9:9").Select
      selection.Insert Shift:=xlDown
      Rows("8:8").Select
      selection.Delete
      Sheets("Nom temporaire").Name = Range("B8").Value         
 
  Next Compteur
 
End Sub

[benoit.ad]

Merci silkyroad, l'erreur 1004 provient bien d'un bug Excel.

Je vais essayé de la contourner.C'est pas gagné.

@+

[ced600]

Je vais essayé de la contourner.C'est pas gagné.

Pourtant la solution proposé par microsoft n'a pas l'air compliqué.