Macros excel copier renommer

Résolu
Anthurus Messages postés 67 Statut Membre -  
Anthurus Messages postés 67 Statut Membre -
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

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    0
  2. Anthurus Messages postés 67 Statut Membre 1
     
    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 .
    0