creation automatique d'une feuille

[Man]

Bonjour à toutes et à tous,

Comment faire pour créer automatiquement une feuille à une certaine date.

Merci pour vos réponses.

Man.

 

[Ronan Quennec]

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

 

[Man]

Bonjour,
merci de votre aide.
@+
Man