Copie d'onglet impossible.

[christ-94]

Bonjour

j'ai un problème de copie d'onglet
j'ai fait une petit application qui crée des étiquettes en fonction d'une liste
je souhaite crée plusieurs étiquettes j'ai donc mis ce code

    Nombre_etiquette = (Range("A65536").End(xlUp).Row - 1)
'insertion des feuilles
    For Mise_en_forme = 1 To Nombre_etiquette
    Sheets("Mise_en_forme").Select
    Columns("L:AQ").Delete Shift:=xlToLeft
    fin = Range("A65536").End(xlUp).Row - 1

    feuille_en_court = "N_" & Mise_en_forme
    Sheets("Model").Copy After:=Sheets(2)
    ActiveSheet.Name = feuille_en_court
    Sheets("Mise_en_forme").Select

voila le probleme , la macro fonctionne bien ,
par contre a un moment jamais le meme elle refuse de copie les onglets

j'ai donc essayer de le faire manuellement mais IDEM
impossible de copie les onglets

y a t'il un problème sur le nombre de copie d'onglet ?
y a t'il une variable interne re-initialise.

Merci d'avance de votre aide

 

[Pierrot93]

Re : Copie d'onglet impossible.

Bonjour Christ

regarde le fil ci-dessous, peut être t'éclairera t il sur le problème :

https://www.excel-downloads.com/threads/recopie-modele-et-le-renomme.99850/

bonne soirée
@+

 

[christ-94]

Re : Copie d'onglet impossible.

Merci pour la reponse

J'ai fait des tests avec

End If
Sheets.Add After:=Sheets(Sheets.Count), Type:= _
    ThisWorkbook.Path & "\modele.xls"
Sheets(Sheets.Count).Name = p & x
End Sub

J'ai le meme probleme au bout d'une 60 d'onglets
alors qu'avant cela etait au bout de 50

 

[christ-94]

Re : Copie d'onglet impossible.

une question avant de partir

Quant excel ne veut plus faire de copie d'onglet
je supprime tous les onglets deja fait
j'essaye de copie un onglet manuellement je ne peux pas

si cela était du a la mémoire, le fait de supprime les onglets ne résoudrait il
pas le problème ?.

Dans le visualisation de la mémoire micro je ne suis pas saturé ?

A+

Merci encore

 

[Pierrot93]

Re : Copie d'onglet impossible.

Bonjour Christ,

désolé, mais perso pas d'autre solution que d'ajouter un onglet en utilsant un modèle, attendons peut être de voir si quelqu'un d'autre auro une autre proposition...

bonne journée
@+

 

[christ-94]

Re : Copie d'onglet impossible.

Bonjour

merci pour les réponses

Apres plusieurs tests, j'ai changé de méthode
Je réalise un model avec un fichiers externe
puis je crée mes copie sur un autre classeur
et limite le nombre de copie a 30 exemplaires
comme ça je ne bloque pas mon classeur source.

A+

 

[tototiti2008]

Re : Copie d'onglet impossible.

Bonjour à tous,

c'est un bug Microsoft répertorié, la copie de feuilles plante parfois (en général si le nombre de feuilles devient important ou si la mémoire utilisée est importante).

La copie d'une feuille de calcul par programmation provoque l'erreur d'exécution 1004 dans Excel

une des solutions est bien d'utiliser un modèle...

 

[christ-94]

Re : Copie d'onglet impossible.

Re-bonjour

Merci pour info
Mais meme si j'utilise un modele sur le classeur source
cela plante au bout de 60 ongles
donc 3 classeurs :
- le source
- le modele
- le montage

Il faut aussi limite le nombre d'ongles

enfin j'ai fait 100 ongles en 4*25
et pas "encore" de plantage

Bon W-E