Renommer un onglet avec la date du lundi en 8 suivant l'exécution

Bonjour le Forum !

Pour un de mes fichiers professionnels (un planning), je dois, chaque semaine, faire une copie de l’onglet actif, la placer à gauche de la liste des onglets et renommer ce nouvel onglet par la date inversée du lundi qui suivra la semaine prochaine (si je le faisais aujourd’hui, 17 octobre, ça serait donc lundi prochain + 7 jours = 29 octobre, donc nom de l’onglet = 181029).

Je vois comment faire la copie de l’onglet (ci-dessous), en revanche, pas du tout pour le renommer avec les 6 chiffres.

Sub nouvel_onglet()
ActiveSheet.Copy before:=Worksheets(ActiveSheet.Name)
End Sub

Quelqu’un pourrait-il m’aider, siouplé ?

Merci !

Bonjour,

Ce programme devrait t'aider

Sub test()
ActiveSheet.Copy before:=Worksheets(ActiveSheet.Name)
valdate = DateTime.Date
valdate = valdate + 8 - DateTime.Weekday(valdate, vbMonday) + 7
ActiveSheet.Name = Format(valdate, "yymmdd")
End Sub

Ça fait plus que m'aider : c'est exactement ça !!!

Merci bcp bcp.

De rien,

l'astuce c'était de faire ton décalage de jour par formule et d'utiliser ensuite la fonction format pour convertir la date au format que tu voulais

Bonne journée

Oulà...

J'avoue que ça me dépasse un peu : en VBA je suis au niveau bidouillage.

En tous cas, merci.