Verifier a l'ouverture le nom du fichier

[Fred]

Bonjour, je voudrais qu'à l'ouverture d'un fichier, qu'excel verifie le nom et que si le fichier ne porte pas le nom abc.xls par exemple qu'il me l'enregistre en utilisant :
ActiveWorkbook.SaveAs "abc.xls"

 

[Fred]

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

 

[Stéphane]

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