Macro copier feuille

Bonjour,

Je voudrais que la macro suivante permet de dupliquer la feuille Date dans une nouvelle feuille, en lui donnant le nom de la cellule B2 soit janvier.

Le problème, c’est que la feuille Date est renommée en "janvier" au lieu d'être dupliquée.

Pouvez-vous m’éclaircir ?

Sub test2()
Sheets("Date").Select
    ActiveSheet.Name = Range("b2").Value
    Sheets("Macro").Select

End Sub
10copier-feuille.zip (8.82 Ko)

Bonjour essaye plutôt ainsi :

Sub test2()
Sheets("Date").Select
Sheets("Date").Copy After:=Sheets(2)
ActiveSheet.Name = Range("b2").Value
Sheets("Macro").Select    
End Sub

Cordialement.

Bonjour,

Une autre possibilité.

Public Sub test2()
    Worksheets("Date").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Range("B2").Value
End Sub

Bonjour, allez savoir...(?)

14copier-feuille.xlsm (20.73 Ko)
Rechercher des sujets similaires à "macro copier feuille"