Nommer un userform

Salut à tous,

je vous sollicite car j'ai un souci de code que ne trouve pas. Je souhaiterais, après avoir renommer mon fichier, qu'a la prochaine ouverture du fichier, que le nom du fichier soit celui de l'userform.

Par exemple, mon fichier se nomme annee 2016. je travaille dans mon userform et ensuite je le ferme. Après avoir fermer mon fichier, je renomme le fichier année 2017. je souhaiterais qu'a la prochaine ouverture du fichier, le nom de l'userform1 soit celui du fichier c'est à dire année 2017.

Merci de m'aider

Je joint mon fichier

Salut jeunixe,

Private Sub UserForm_Activate()
'
UserForm1.Caption = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
'
End Sub

8)

A+

Bonjour,

Si tu parles du titre de l'UserForm, une façon parmi d'autres :

UserForm1.Caption = Split(ThisWorkbook.Name, ".")(0)

Si c'est le renommer dans le VBE, une autre façon mais attention au caractères interdits comme ici, le point et l'espace qui pour l'un supprimé et pour l'autre remplacé :

Sub Test()

    Dim Nom As String

    Nom = Split(ThisWorkbook.Name, ".")(0)
    Nom = Replace(Nom, " ", "_")
    ThisWorkbook.VBProject.VBComponents("UserForm1").Name = Nom

End Sub

Salut à curulis57 et theze,

merci aussi à tous ceux qui ont réfléchir sur ma préoccupation. Vous avez trouvé exactement le code que je recherchais. Encore une fois merci.

Très respectueusement à tous