Discussion :

[Tonete]

Bonjour,

Je désire modifier le nom de l'application Excel (Microsoft Excel-Classeur1) dans la barre de titre en le remplaçant par _ulysse_.

J'ai inséré un module (module1) avec le code suivant :

Code :

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

1
2
3
4
5
6
7
Sub changer_nom_barre_titre()
Application.Caption = "_ulysse_"
End Sub
 
Sub restaurer_nom_barre_titre()
Application.Caption = "Microsoft Excel"
End Sub

Mais on dirait que cela ne suffit pas car il ne se passe rien ..... Dois-je mettre une commande dans le code de ThisWorbook ?

Merci de votre aide car il a pas mal de temps que je retourne ce problème dans tous les sens ....

Tonete

[LouiMz]

Bonsoir,

Pour ma part ces deux macros fonctionnent:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub changer_nom_barre_titre()
 
Application.Caption = "_ulysse_" 'Modifie la chaine à gauche (Microsoft Excel)
ActiveWindow.Caption = "" 'Modifie la chaine à droite (Classeur1.xls)
 
End Sub
 
Sub restaurer_nom_barre_titre()
 
Application.Caption = Application 'Restaure le nom de l'appli
ActiveWindow.Caption = ActiveWorkbook.Name 'Restaure le nom du classeur
 
End Sub

Cordialement

[Tonete]

Bonsoir louiMz,
Merci pour votre réponse. Je viens de tester mais il ne se passe toujours rien ... et pourtant je n'ai pas l'impression de faire tout faux : j'ouvre un simple classeur Excel / je vais dans Visual Basic / Insertion / Module / un clic droit pour insérer les deux macros dans le code du module. Je réinitialise, sauvegarde, je ferme le classeur, je l'ouvre .... et rien ... ! Ci-joint une capture d'écran !

C'est assez désarmant ! Encore merci de vous êtes penché sur mon problème.

Meilleures salutations
Tonete

[mercatog]

Par ce que tu n'appelle nulle part ces deux procédures.
Dans le module ThisWorkbook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
changer_nom_barre_titre
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
restaurer_nom_barre_titre
End Sub

[Tonete]

Bonsoir Mercatog,

C'était bien cela ! C'est bien la question que je me posais au départ ... il me semblait bien qu'il manquait quelques choses dans ThisWorkbook !

Encore merci et bonne soirée !

Meilleures salutations

Tonete

[Invité]

Bonjour

Mais on dirait que cela ne suffit pas car il ne se passe rien ..... Dois-je mettre une commande dans le code de ThisWorbook ?

Ôtes moi d'un doute, tu appelles bien ces routines (sub) quelque part ?

Philippe