Verifier a l'ouverture le nom du fichier

Non, c'est bon laissez tomber vous êtes pas assez rapide.
En fait c'est pratique si vous avez fait un classeur excel dont vous ne voulez pas que l'on change le nom. A l'ouverture ca test si le nom est changé !

Pour ceux que ca interesse:

Private Sub Worbook_Open()

' Teste si le classeur abc est ouvert
On Error Resume Next
Workbooks("abc.xls").Activate
If Err <> 0 Then
' Si le fichier ne porte pas le nom de abc.xls, excel l'enregistre sous abc.xls
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "abc.xls"
Application.DisplayAlerts = True
End If

End Sub

ou encore :
Private Sub Workbook_Open()
If Me.Name <> "abc.xls" Then
CreateObject("WScript.Shell").Popup "Vous avez changé le nom de ce fichier il va se fermer tout seul", 2, "Hello"
Me.Close savechanges:=False
End If
End Sub

question rapidité j'ai vu ça hier soir vers 22h mais j'avais la flemme ;-)
bye
stephane