Remplacer le logo Excel

Mi_

XLDnaute Occasionnel
Bonjour le forum,

Concernant le remplacement du logo Excel, j'ai trouvé Ce lien n'existe plus ce code:
Code:
' *** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***

Const FichierIco As String = 'Logo.ico'

Private Declare Function FindWindowA Lib 'User32' _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetClassLongA Lib 'User32' _
  (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetClassLongA Lib 'User32' _
  (ByVal hWnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare Function LoadImageA Lib 'User32' _
  (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
  ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long

'____________________________________________________________

Dim HIcon As Long, hWnd As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  If HIcon Then SetClassLongA hWnd, -14, HIcon

End Sub

Private Sub Workbook_Open()

  Dim FIcone As String

  FIcone = Me.Path & '\\' & FichierIco
  If Dir$(FIcone) <> '' Then
    hWnd = FindWindowA(vbNullString, Application.Caption)
    HIcon = GetClassLongA(hWnd, -14)
    SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10)
  End If

End Sub
Mais ce code se réfère toujours à un fichier ico externe, ailleurs sur le disque dur.

Ma question serait comment y mettre un nouveau logo à partir d'un fichier .ico intégré au classeur en tant qu'objet.

Merci pour toute idée,
Mi_
 

Mi_

XLDnaute Occasionnel
Bonjour le forum,

Ne cherchez plus, j'ai trouvé. C'est donc possible en intégrant l'icône choisi dans une zone d'image VBA.

J'attache un fichier démo, peut-être il y en a d’autres utilisateurs qui trouveront cette possibilité intéressante.

A bientôt,
Mi_
[file name=changer_icone_excel.zip size=15161]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/changer_icone_excel.zip[/file]
 

Pièces jointes

  • changer_icone_excel.zip
    14.8 KB · Affichages: 60

Bido

XLDnaute Nouveau
Bonjour le forum,

Ne cherchez plus, j'ai trouvé. C'est donc possible en intégrant l'icône choisi dans une zone d'image VBA.

J'attache un fichier démo, peut-être il y en a d’autres utilisateurs qui trouveront cette possibilité intéressante.

A bientôt,
Mi_
[file name=changer_icone_excel.zip size=15161]http://www.excel-downloads.com/comp...uploaded/files/changer_icone_excel.zip[/file]
Désolé je n'arrive pas à accéder au code .ça me met" ce code doit être mis à jour ...." Si tu peux m'aider.merci
 

soan

XLDnaute Barbatruc
Inactif
Bonjour Deadpool, Bido,

Désolé je n'arrive pas à accéder au code ; ça me met "ce code doit être mis à jour..."

sur un post de 2005 peu de chance que tu aies une réponse

oui, c'est bien ça : c'était bien en 2005, donc y'a de ça 17 ans ! 😄 c'est bien pour ça aussi que ça met pour Bido le message "ce code doit être mis à jour..." ! 🤣 il est bien temps d'passer à la nouvelle version du logiciel ! (toujours mieux et plus performante, avec moins de bugs, plus sûre, plus fiable, et plus rapide, selon les mêmes sirènes commerciales que celles de la société Microsoft ! 😁)

d'autre part, le titre me semble curieux : je n'suis pas sûr que remplacer le logo Excel soit quelque chose de tout à fait légal ! 😉

soan
 

Deadpool_CC

XLDnaute Accro
je n'suis pas sûr que remplacer le logo Excel soit quelque chose de tout à fait légal !
je pense que c'est comme pour Access ... si tu as fait un fichier qui ressemble à une application à l'époque M$ permettait de personnaliser le logo pour faire croire aux utilisateurs que c'était un logiciel dédié ...lol
c'est vrai que de nos jrs les utilisateurs ne seraient plus dupes et que l'intérêt est comment dire inexistant :)
 

Discussions similaires

Statistiques des forums

Discussions
312 906
Messages
2 093 473
Membres
105 740
dernier inscrit
Mln