Modifier le nom de l'application Excel

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:

---

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

Bonsoir,

Pour ma part ces deux macros fonctionnent:

Code:

---

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

Bonjour

Citation:

---

Envoyé par Tonete

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

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

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

Code:

---

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

---

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