Macro pour renommer un onglet de page

[ChantalTreize]

Bonjour,
J'ai monter une macro pour renommer un onglet de page dans excel 365
ActiveCell.Offset(0, 1).Range("A1:E1").Select
Selection.Copy
Sheets("15-02-17 ").Select
Sheets("15-02-17 ").Name = "20-02-15 "
ActiveCell.Offset(-1, 6).Range("A1").Select
Mais ça plante pourriez vous me dire quelle modification apporter
Le but est de récupérer une date pour renommer l'onglet de la page
Ai je été assez claire
Merci d'avance
Chantal

 

[Lone-wolf]

Bonsoir Chantal

Est-ce que tu copie la plage qui est dans la feuille Sheets("15-02-17") ?

ActiveCell.Offset(0, 1).Range("A1:E1").Copy
Sheets("15-02-17").Activate
With Activesheet
.Name = "20-02-15"
.Cells.Offset(-1, 6).Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = 0
Application.GoTo .Range("a2")
End With

 

[ChantalTreize]

Oui je recopie une cellule sur la même page que je veux renommer

 

[Lone-wolf]

Re

Je ne sais pas si c'est moi qui bagasse mais, si tu est dans la feuille 15-02-17, quel interêt à copier Ai:E1 en A1???

 

[ChantalTreize]

parcequelle doit etre recopier 30 fois pour avoir une feuille parjour

 

[Lone-wolf]

Ok, mais c'est beaucoup mieux comme ceci, si tu veux avoir une feuille avec la date du jour. À mettre dans ThisWorkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
End Sub

En cliquant sur l'icône à côté des onglets, tu aura la feuille renommée avec la date du jour.

Si il n'y a pas de mise en forme: Sheets(1).Range("a1:e1").Copy ActiveSheet.Range("a1")

 

[ChantalTreize]

Merci beaucoup ça fonctionne très bien