[vba] recopier x fois une feuille Excel Résolu/Fermé

Question

Bonsoir le forumComment en vba copier une feuille appelée "Valeur" en une autre nommée "Position 1" puis relancer la macro qui va à nouveau  copier la même feuille  "Valeur" et l'appeler  "Position 2" puis relancer la macro ............. etc....Merci d'avance

tompols · Accepted Answer

Salut,Sub Copie()Dim i, zz = InputBox("Nombre de copies ", "Copie")For i = 1 To z    Sheets("Valeur").Copy After:=Sheets(i)    ActiveSheet.Name = "Position " & iNext iEnd SubEt voilà...A+

pn · Answer

Bonjour à tous,

J'ai testé votre méthode sur Excel 2002 qui marche super bien mais qui plante au bout de 45 feuilles copiées!!! 
En fait je veux dupliquer une feuille "model" avec une macro qui doit effectuer un certains nombre de traitements!

J'utilise le code suivant:
Sheets("Model").Copy After:=Sheets(sheets.Count)
    ActiveSheet.Name = "Feuil " & N_Feuil
 
Aprés 45 feuilles dupliquées il s'arrete avec un message d'erreur!!

J'ai essayer de vider le presse-papier mais ça ne change rien!
clipboard.clear
 ou Application.CutCopyMode = False

Je sais pas si c'est un problème de mémoire ou d'un problème Excel?

D'avance merci.

[vba] recopier x fois une feuille Excel

2 réponses

Discussions similaires