De: Robert Descoteaux <robYert.desYcotYeauxYZ@cgYocable.ca>
Objet: Re: Logo Excel
Date : mercredi 26 juillet 2000 05:04

Salut JP

Changer l'icône de Excel dans l'application ainsi que dans la barre de tâche est
faisable.

<moi je la veux bien aussi cette macro encore qu'il me semble que r&eacute;cemment
laurent a post&eacute; la sienne en r&eacute;ponse à Manuel <Diaz qui affirmait que changer le
logo n'&eacute;tait pas possible, si je ne m'abuse (je ne lui en veux pas, tout le monde
ne peut pas <travailler chez M$). JPS

Je ne voudrais pas partir de pol&eacute;mique ou discorde d'aucune sorte (surtout pas
avec notre GURU), mais Laurent disait dans sa r&eacute;ponse que
"Pour le remplacer par un logo quelconque, c'est un peu plus compliqu&eacute;, mais pas
infaisable. "

Vu que plusieurs personnes m'on demand&eacute; via un courriel priv&eacute; de leur envoyer la
macro de Stephen Bullen dont il est question ici, la voici donc.
Chacun devra changer les chemins pour le nouvel icône ainsi que l'icône par d&eacute;faut
de l'application Excel.Exe pour l'adapter à son propre système ou configuration.

Robert
'------------------------------------------------

'this code sets the main Excel icon to the .ico file supplied
'(The Declares lines are one line each)

'Stephen Bullen, Microsoft.public.excel.programming, 98/04/08

                    'Get the handle for a window
Declare Function wapiFindWindow Lib "user32" Alias "FindWindowA" _
                (ByVal lpClassName As String, ByVal lpWindowName As String) As
Long

                    'Extract an icon from a file
Declare Function wapiExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
                (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal
nIconIndex _
                As Long) As Long

                    'Send a Windows message
Declare Function wapiSendMessage Lib "user32" Alias "SendMessageA" _
                    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As
Integer, _
                    ByVal lParam As Long) As Long

Public Const WM_SETICON = &H80
Sub ChangeIcon()
Dim sName As String
sName = "C:\club.ico"
'Uncomment the next line to restore the standard Excel icon. Give the right path
'sName = "F:\Office\Excel.exe"

Call procsetIcons(sName)

End Sub

Sub procsetIcons(sIconPath)

    Dim a As Long, ihWnd As Long, ihIcon As Long

                    'Get the handle of the Excel window
    ihWnd = wapiFindWindow("XLMAIN", Application.Caption)

                    'Get the icon from the source
    ihIcon = wapiExtractIcon(0, sIconPath, 0)

                    '1 means invalid icon source, 0 means no icons in source
    If ihIcon > 1 Then

                        'set the big (32x32) and small (16x16) icons
        a = wapiSendMessage(ihWnd, WM_SETICON, True, ihIcon)
        a = wapiSendMessage(ihWnd, WM_SETICON, False, ihIcon)
    End If

End Sub
'------------------------------------------------
 