'Affiche le N° de version complet après le titre dans la barre de titre de l'application
Sub VersionEXE()
Dim Version As String, TitreVersion As String
Version = App.Major & "." & App.Minor & "." & App.Revision
TitreVersion = App.Title & " " & Version
Me.caption = TitreVersion
End Sub