Erreur code VBA

Bonjour,

lors de l'execution de mon code VBA, j'ai une fenetre d'erreur qui s'affiche

"erreur de compilation: End Sub attendu".

Voici mon programme

Sub test()

Private Sub Workbook_Open()

If Date > CDate("26/09/13") Then

ActiveWorkbook.Close

End If

End Sub

Je ne comprend pas le problème...

Merci pour votre aide

Cordialement

Bonjour,

Le corps d'une procédure débute par Sub et se termine par End Sub

Dans ton code, Sub apparait deux fois alors que End Sub n’apparait qu’une fois.

Sub test()
Private Sub Workbook_Open()
    <Instructions>
End Sub

Il te faut donc choisir

Soit

Sub test()
    <Instructions>
End Sub

Soit

Private Sub Workbook_Open()
    <Instructions>
End Sub

A+

merci beaucoup

@+