Changer un icone Excel

Bonjour,

est-il possible de modifier l'icone d'un fichier excel.

Merci

Bonjour

A moins que ce soit possible avec Excel 2007, je ne pense pas.

Tu as cependant la possibilité de créer un raccourci (Click droit et "Créer un raccourci") et de changer l'icône de ce raccouci avec Click droit onglet "Raccourci" et bouton "Changer d'icône"

Cordialement

Bonjour vincenzo, Amadéus

Vu sur le site de Frederic sigonneau

changerait et rétablirait l'icône Excel

Jamais testé car je n'en vois trop l'intérêt et je n'ai pas trop pigé la manip mais...

Attribute VB_Name = "ChangeIconeExcel"

'This code shows you how to change the Excel icon:
'Jim Rech, mpep
'Attention : lancer ces procédures depuis Excel et non le VBE

Declare Function GetActiveWindow32 Lib "USER32" Alias _
 "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "USER32" Alias _
 "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
   ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
 "ExtractIconA" (ByVal hInst As Long, _
   ByVal lpszExeFileName As String, _
    ByVal nIconIndex As Long) As Long

Sub ChangeXLIcon()
Dim h32NewIcon As Long
Dim h32WndXLMAIN As Long

  h32NewIcon = ExtractIcon32(0, "Notepad.exe", 0)
  h32WndXLMAIN = GetActiveWindow32()
  SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon 'Icon big
'  SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon 'Icon small
End Sub

Sub RestaureXLIcon()
Dim h32NewIcon As Long
Dim h32WndXLMAIN As Long

  h32NewIcon = ExtractIcon32(0, "Excel.exe", 0)
  h32WndXLMAIN = GetActiveWindow32()
  SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon 'Icon big
'  SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon 'Icon small
End Sub

Bonsoir,

merci de vos réponses.

Bonne soiree