Macros excel copier renommer

Résolu
Anthurus -  
Bonjour, je souhaiterais une macros qui permet de copier le contenue d 'une feuille N vers une nouvelle feuille en la renommant N+1.

merci

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    bonjour

    deux possibilités selon que N est la lettre N ou un nombre

    1. N est la lettre N 

    Private Sub CommandButton1_Click()
    Sheets("N").Select
    Sheets("N").Copy After:=Sheets("N")
    Sheets("N (2)").Select
    Sheets("N (2)").Name = "N+1"
End Sub


    2. N est un nombre 

    Private Sub CommandButton1_Click()
Dim N As Long
Dim NomF As String
    NomF = ActiveSheet.Name
    N = Val(NomF)
    Sheets(NomF).Select
    N = N + 1
    Sheets(NomF).Copy After:=Sheets(NomF)
    Sheets(NomF & " (2)").Select
    Sheets(NomF & " (2)").Name = Str(N)
End Sub


    est ce que ça répond a la question?

    RQ. Pour copier integralement une feuille, il n'y a pas besoin de macro
    Clic-droit sur l'onglet puis deplacer ou copier etc ...

    bonne suite
    1. Anthurus Auteur
      Merci de m'avoir répondue,mon but est de créer un bouton que lorsque que je clique dessus il me copie la feuille excel et la renomme automatiquement afin de faire une sorte de sauvegarde de la feuille .