Copie de feuille

[David]

Bonjour tout le monde,

J'ai un classeur excel qui se compose de 4 feuilles (4 onglets)

J'aimerais juste copier ces quatres feuilles * 40 (copier la feuille 1 ensuite la seconde, ensuite la troisième et enfi la quatrième et ainsi de suite 40 fois).

J'aimerais aussi que ces feuilles s'appellent Feuil5, Feuil6..... etant donné que les 4 premières s'appellent Feuil1, Feuil2, Feuil3 et Feuil4.

et tout cela en VBA

Est-ce possible ?

Merci d'avance pour votre aide

David

 

[Creepy]

Bonjour le Forum, David,

Voici la macro :

--- CODE ---

Sub Copie()
Dim NBfois, Init, FEnd As Integer
FEnd = 4

For NBfois = 1 To 40
For Init = 1 To 4
Sheets("feuil" & Init).Select
Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)
ActiveSheet.Name = "Feuil" & FEnd + 1
FEnd = FEnd + 1
Next
Next
End Sub

--- FIN ---

Voila, ++

Creepy

 

[David]

Bonjour tout le monde,

Un très grand merci à toi Creepy

Je vais la tester et je te dis quoi mais je suis déjà sure que cela fonctionnera super bien

Encore un grand merci
David

 

[David]

Re-bonjour Creepy, re-bonjour le forum,

Ca marche super bien sauf qu'il s'arrête à 149 Feuille et qu'il me met un message d'erreur

il s'arrête sur cette ligne

Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)

J'ai changé ça For NBfois = 1 To 50 afin d'en avoir deux cents.

Merci d'avance pour ton aide

David