Bonjour,
Code à mettre dans le workbook open
Private Sub Workbook_Open()
Dim b As String
If Date = "20/06/03" Then
a = ActiveWorkbook.Sheets.Count
b = Day(Date) & Month(Date) & Year(Date) 'Nom de la future feuille
d = 0
For i = 1 To a
c = Sheets(i).Name
If c = b Then
d = 1
Exit For
End If
Next i
If d = 0 Then
Sheets.Add After:=Sheets(a)
ActiveSheet.Name = b
End If
End If
End Sub
@+
Ronan