copie multiple dun feuille ds un classeur

[jderoque]

bonjour
j'aimerai copier une feuille en 50 exemplaire
dans mon classeur a partir dun modele initiale.
ma feuille de depart sappelle 'bande1', j'aimerai que la seconde s'appelle 'bande2' et ceux jusqua 50. si vous avez une idée je prend.
merci d'avance

 

[PascalXLD]

Bonjour

Sub copie()
Dim x As Byte
Application.ScreenUpdating = False
For x = 2 To 50
    Sheets('Bande1').Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = 'Bande' & x
Next
Application.ScreenUpdating = True
End Sub

 

[jderoque]

ca ne marche pas, mé ca ne beug pas

 

[PascalXLD]

RE

Bizarre

J'ai fait le test et perso j'ai eu mes 50 feuilles

Tu l'as bien placé ta macro dans un module ??

 

[Temjeh]

Bonjour à tous

Ici cette macro est parfaite sous le ciel de Montréal !!

Temjeh

 

[PascalXLD]

Bonjour

merci Temjeh on arriverait à douter par moment

Bonne journée au Québec

 

[jderoque]

ben je suis desolé mé je narrive pas a la faire marché et vois pas pourkoi.

 

[PascalXLD]

Où as-tu recopié le code ??

Dans un module ou dans le code d'une feuille ??

 

[jderoque]

dans un module