Aide sur macro copie de feuille

Bonjour à toutes & à tous,

J'ai une petite question :

Dans un fichier XL, j'ai 5 feuilles dont 1 que je souhaite copier et renommer après la copie. Cette feuille se nomme Stats 1 et se trouve en dernière position. Je souhaiterai copier cette feuille, la nommer Stats 2 et la mettre en dernière position.

J'affecte cette macro à un bouton.

J'ai fait une macro avec l'enregistreur mais je ne sais pas comment la transformer pour que je puisse avoir Stats 3, Stats 4 etc après avoir actionné ce bouton.

Suis-je assez clair ?

Stats n (bouton) --> Stats n+1

Voici ma macro :

Sub TestAjoutFeuilles()
'
' TestAjoutFeuilles Macro
' Macro enregistrée le 10/12/2010 par *
'

'
    Sheets("Stats 1").Select
    Sheets("Stats 1").Copy After:=Sheets(5)
    Sheets("Stats 1 (2)").Select
    Sheets("Stats 1 (2)").Name = "Stats 2"
End Sub

Merci pour votre aide

Bonjour,

Essaie avec ce code :

Sub TestAjoutFeuilles()
'
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count) 'Compte le nombre de feuille et copie après la dernière
    Sheets(Sheets.Count).Select 'Sélectionne la dernière
    ActiveSheet.Name = "Stats " & CInt(Mid(ActiveSheet.Name, 7, 1)) + 1 'Je récupère 1 dans "Stats 1 (2)" après la copie et ajoute 1

End Sub

A+

Bonjour Dachevid,

Merci pour ta réponse.

Alors soit je ne fais pas ce qu'il faut soit cela ne marche pas.

J'ai essayé de mettre ton bout de code avant, après le mien et je l'ai même enlevé ; cela ne me fait qu'une nouvelle feuille, certes avec le nom qui change Stats 2, Stats 3 ...

Peux-tu m'éclairer ?

Merci

-- Ven Déc 10, 2010 10:30 pm --

Re bonsoir à toutes & à tous,

J'ai trouvé l'erreur, comme on dit en informatique, le problème vient souvent entre la chaise et le clavier. Et là c'est le cas.

Je suis trop nul !!!

J'avais affecté mon bouton à une mauvaise macro.

MERCI beaucoup dachevid