Rajouter 1 jour au nouvel onglet

[BOCARAMEL]

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

 

[job75]

Re : Rajouter 1 jour au nouvel onglet

Bonsoir BOCARAMEL,

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

A+

 

[BOCARAMEL]

Re : Rajouter 1 jour au nouvel onglet

Vraiment merci job75 ça fonctionne nickel
bonne soirée

 

[job75]

Re : Rajouter 1 jour au nouvel onglet

Re,

En fait, si l'on utilise aussi les boutons des feuilles journalières, il faut copier la feuille modele :

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

A+