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
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
En fait, si l'on utilise aussi les boutons des feuilles journalières, il faut copier la feuille modele :
Code:
Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
Sheets("modele").Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub