Sub Bouton2_Cliquer()
Dim sh As Worksheet
'Boucle pour vérifier si la feuille avec la date du jour existe déjà
For Each sh In Worksheets 'pour chaque feuille dans le classeurs
If sh.Name = Format(Date, "dd-mm-yy") Then 'si la feuille porte le nom de date du jour
MsgBox "La feuille existe déjà" 'j'affiche un message d'alerte
Exit Sub 'je sors prématurément de la macro
End If
Next 'Je vais vérifier la feuille suivante.
'Si la feuille existe, la macro ne lit pas les lignes suivantes car on indique de sortir de la macro le cas échant (exit sub)
'donc par conséquant, les lignes ci-dessous seront executées que si la feuille portant la date du jour n'existe pas.
'Copier la feuille précédente
ThisWorkbook.ActiveSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'Renomme la feuille par la date de jour, si la feuille du jour a déjà été crée affichage d'un message"
Sheets(Sheets.Count).Name = Format(Date, "dd-mm-yy")
'Reprend le solde de la veille
Cells(22, 2).Value = Sheets(ActiveSheet.Index - 1).Cells(26, 2).Value
'Inscrit la date du jour
Cells(1, 3).Value = Date
'Vide les cellules inutiles
Cells(6, 2).Clear
Cells(7, 2).Clear
Cells(8, 2).Clear
Cells(9, 2).Clear
Cells(10, 2).Clear
Cells(15, 2).Clear
Cells(16, 2).Clear
Cells(17, 2).Clear
Cells(18, 2).Clear
Cells(19, 2).Clear
Cells(20, 2).Clear
End Sub
