Rajouter 1 jour au nouvel onglet

Bonsoir à tous

je n'arrive pas à prendre l'onglet modele, faire une copie le mettre en dernier (à droite)et le renommer en rajoutant 1 jour par rapport a la date du dernier onglet

Voila, j'espère avoir été assez clair

merci de votre aide

-- 02 Mai 2011, 22:19 --

c'est bon j'ai la solution

Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub

bonne soirée

bonjour,

essaie avec DateAdd:

ActiveSheet.Name = Format(DateAdd("d", 1, Date), "dd-mm-yyyy")