Changer Excel barre tache windows

[GERARD]

Hello tous !!!

Voici ma nouvelle question qui n'est que purement esthétique...

Je lance mon classeur 'GEGE'
Dans la barre des taches windows (en bas de l ecran) j'ai l'icone Excel et 'Microsoft Excel - GEGE'

Y a til moyen de changer cet icone (ou juste l enlever) et surtout d'enlever 'microsoft excel' pour laisser juste 'GEGE'

Merci de vos reponses (positives j'espere !!! )

A bientot

 

[Eric C]

Bonjour le forum
Bonjour Gérard

Tu vas sur le site VériTi et te rends dans la rubrique Téléchargements - Tu y cherches Change Icône EXCEL de notre ami Ti (que je salue au passage) pour changer l'icône puis pour ton titre tu déclares dans un module standart

Declare Function SetWindowText Lib 'user32' Alias 'SetWindowTextA' ( _
ByVal hwnd As Long, _
ByVal lpString As String) As Long
Declare Function GetActiveWindow Lib 'user32' () As Long

Puis dans ThisWorBook (pour l'avoir tout le temps à l'ouverture de ton classeur)

Private Sub Workbook_Open()
SetWindowText GetActiveWindow(), 'Mi, c'est Gégé'
End Sub

Bon c'est Just pour le fun Oki ?

 

[GERARD]

Re Eric C

Tout d'abord merci pour ta formule, c'est géant...

Mais je ne trouve pas le fichier 'change icone sur le site de VeriTi...
Peux tu m'aider ?

Merci encore

 

[Ti_]

Salut à vous
En fait, il s'agit du fichier 'Icone Ti' qui se trouve dans la rubrique 'démo' des téléchargements.
Et bientôt ce sera bien plus facile de trouver un programme dans le nouveau site !

 

[GERARD]

Re Eric C, re Ti,

je reviens sur ce fil car je viens de m'aperceveoir que votre technique marche pas mal (pour le chngement de nom dans la barre des taches) mais que des que je cliqu un bouton avec une macro, celle ci revient en mode 'Microsoft Excel - GEGE'...

A quoi est ce du? Y a t il un moyen d y remédier???

Merci a vous de votre grande patience !!!

 

[Eric C]

Bonjour le forum
Re bonjour Thierry, re bonjour Gérard

Exact, tu as raison. Pour contourner le problème, j'ai également placé l'appel de fonction dans le code du Bouton d'appel du USF (dans mon exemple), ce qui donne

Private Sub CommandButton1_Click()
SetWindowText GetActiveWindow(), 'Mi, c'est Gégé'
UserForm1.Show
End Sub

En espérant que cela te convienne.