Discussion :

[diude54]

Bonjour à tous,

J'ai une macro qui génére des feuilles automatiquement dans un classeur à partir d'une feuille type.
J'ai eu aujourd'hui à utiliser cette macro pour générer une centaine de feuilles.

Le code que j'utilise est:

Code :

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

Sheets("Feuil1").Copy After:=Worksheets(Worksheets.Count)

Il fonctionnait parfaitement jusqu'ici, mais je n'avais jamais eu à générer autant de feuilles d'un seul coup.
De plus j'ai utilisé ce code 3 ou 4 fois de suite sans fermer Excel.
C'est à ce moment la qu'il plante.

Si je ferme excel et que je le réouvre ça remarche.

Mon Hypothèse:
Je pense que ça vient du fait que le presse papier et surchargé à cause du copy.

Je peut le tromper donc si vous avez une idée je suis preneur. Sinon je souhaiterai tester mon hypothèse seulement je ne sais plus comment vider le presse papier (commande VBA) si quelqu'un peut m'indiquer le code je suis preneur.

Merci

[Invité]

Bonjour,

Peut-être une réponse ici :

http://www.developpez.net/forums/d79...presse-papier/

ou ici

http://www.developpez.net/forums/d78...se-papier-vba/

[aalex_38]

Bonjour à tous,

Je viens de tester ce code qui semble ne pas poser de problèmes chez moi :

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
Sub testc()
On Error GoTo fin
Dim wb As Workbook
Set wb = ThisWorkbook
 
Application.ScreenUpdating = False
For i = 1 To 200
With Feuil1
    .Visible = True
    .Copy After:=wb.Worksheets(wb.Worksheets.Count)
    .Visible = xlSheetVeryHidden
End With
Next
fin:
Application.ScreenUpdating = True
 
End Sub

[diude54]

Je viens d'essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Sub VidePressePapier()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

J'appel VidePressePapier à chaque tour dans la boucle.

J'obteint un message d'erreur au bout de 170 feuilles.
Erreur 1004
La méthode Copy de la classe Worksheet a échoué

Une idée?

Voici le code en entier:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
 
Dim Nligne, i, j As Integer
 
Application.ScreenUpdating = False
Application.EnableEvents = False
 
UserForm2.ComboBox1.Clear
Unload UserForm3
Unload UserForm2
 
Call detruirefeuillesauf2
 
Set PL3 = Range("B4", "B1039")
Nligne = Find0 - 1
 
If Nligne <> 4 Then
 
    i = 5
    Do Until i = Nligne + 1
 
    nom = Sheets("Feuille de Saisie").Cells(i, 2).Value
    Sheets("Feuil1").Copy After:=Worksheets(Worksheets.Count) '("Feuille de saisie")
    ActiveSheet.Unprotect
    ActiveSheet.Range("G8").Value = Sheets("Feuille de Saisie").Cells(1, 13).Value
        ActiveSheet.Range("A3").Value = "(" & Sheets("Feuille de Saisie").Cells(i, 1).Value & ") " & Sheets("Feuille de Saisie").Cells(i, 2).Value
        ActiveSheet.Range("Q3").Value = Sheets("Feuille de Saisie").Cells(i, 6).Value
        ActiveSheet.Name = "(" & Sheets("Feuille de Saisie").Cells(i, 1).Value & ") " & Left(nom, 15) & " " & Sheets("Feuille de Saisie").Cells(i, 6).Value
        Application.EnableEvents = True
        ActiveSheet.Range("I11").Value = Sheets("Feuille de Saisie").Cells(i, 4).Value
        If Worksheets("Feuille de Saisie").Cells(i, 5).Value = "OUI" Then ActiveSheet.CheckBox1.Value = True
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    VidePressePapier
 
    i = i + 1
    Loop
 
End If
 
Application.EnableEvents = True
Application.ScreenUpdating = True
 
End Sub

[aalex_38]

Bonjour,

essai de rajouter après la copie :

Code :

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

Application.CutCopyMode = False

[diude54]

Ok merci je vais essayer, je reviens demain

[La Zélie]

Bonsoir,

J'ai dans un classeur une feuille-type placée en position 1 et suivant mes besoins j'ai une macro qui ajoute le nombre de feuille voulue.
je l'ai testé jusqu'à 250 feuilles sans problème.

Si cela peut te servir, voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AjoutDeFeuilles()
  Dim C As Integer
  rep = 0
  rep = InputBox("Nombre de Feuilles à ajouter?")
  If rep <> "" Then
   Do While C < rep
      Sheets.Add After:=Worksheets(Worksheets.Count)
      C = C + 1
  Loop
  End If
End Sub

pour le rep=0 je ne suis pas sûre qu'il serve à quelque chose mais comme je n'ai eu aucune erreur jusqu'à présent, je le garde.