Discussion :

[LeForestier]

Bonjour,
En terminant la mise au point du PopUpMenu je suis retombé sur ces API.
Modification du titre de l'application "Microsoft Excel" par le titre que vous voulez.
Collez le code ci dessous dans le module ThisWorkBook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" ( _
       ByVal hwnd As Long, _
       ByVal lpString As String) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
 
Private Sub Workbook_Open()
    SetWindowText GetActiveWindow(), "Le titre que vous souhaitez"
End Sub

Remarque : Sur Excel 2007 n'apparaît que sur le bouton de réduction.
Cordialement.

[Lynx92260]

eh oui il existe une propriété de l'application comme ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    ' Le titre de l application 
    Application.Caption = ThisWorkbook.Name
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    ' Remettre le titre de l'application d'origine 
    Application.Caption = "Microsoft Excel"
End Sub

Voilà tout simplement