If filename

Salut,

Je cherche a faire un test sur le nom du fichier sans succes

Private Sub Workbook_Open()
If Filename = "Vierge" Then

    MsgBox "Saisir uniquement les N° de bancs"
    MsgBox "Apres avoir créé les ''fiches_horaires'' "
    MsgBox "Générez les files et enregistrez"
    Else
    MsgBox "Fichier déjà validé"

End If

 End Sub

sans succés avec vierge ou vierge.xlsm

Bonjour,

pas tout compris de ton code.... pour tester si un fichier existe, regarde dans l'aide vba du coté de la fonction DIR

bonne journée

@]+

c'est pas pour tester si le fichier existe, c'est pour tester si le nom du fichier en cours est le ichier vierge.

En fait sur ce meme fichier j'ai un macro qui sauvegarde sous "date".xlsm .

Mais quand on ouvre ce fichier, je ne veux pas avoir les meme msgbox que sur le ichier vierge .

Re,

pas très clair tout ca... peut être ainsi :

If ActiveWorkbook.Name = "NomClasseur.xls" Then

Ok ca marche, merci

ps: desolé pour le post precedent, j'ai la touche F qui deconne