Changer l'icône Excel d'un classeur....

[la croisée des pains]

Bonjour le forum,

j'ai trouvé ce code sur un forum pour changer l'icone d'une feuille Excel.
Le problème je n'arrive pas à le faire marcher. A mon avis il manque du code. Je joins le fichier .
Quelqu'un peut-il jeter un coup d'oeil.

Merci d'avance.

bonne journée

 

[SergiO]

Re : Changer l'icône Excel d'un classeur....

Bonjour,

Adapte ce qui est en rouge :

Const FichierIco As String = "[COLOR=Red]ton_icone.ico[/COLOR]"

FIcone = "[COLOR=Red]c:\emplacement de l'icone\[/COLOR]" & FichierIco 'TON CHEMIN D'ACCES VERS TON ICONE

@+

 

[la croisée des pains]

Re : Changer l'icône Excel d'un classeur....

Bonjour,

Adapte ce qui est en rouge :

Const FichierIco As String = "[COLOR=red]MO[/COLOR]"
 
FIcone = [COLOR=#000000]"[/COLOR][COLOR=red]C:\Documents and Settings\LB\Mes documents\Mes images[/COLOR]" & FichierIco 'TON CHEMIN D'ACCES VERS TON ICONE

@+

bonjour Sergio,

j'ai testé et cela ne marche pas. Et toi as tu testé?

lolo

Mon chemin et MO le nom de mon icone

 

[SergiO]

Re : Changer l'icône Excel d'un classeur....

Re,

Oui j'ai testé et ça marche !

Précision : c'est l'icone en haut à droite de l'écran quand on ouvre Excel !

 

[la croisée des pains]

Re : Changer l'icône Excel d'un classeur....

Re,

Oui j'ai testé et ça marche !

Précision : c'est l'icone en haut à droite de l'écran quand on ouvre Excel !

oui d'accord avec toi , j'ai mis en rouge le chemin et le nom de mon icone

précision à gauche de l'écran

 

[SergiO]

Re : Changer l'icône Excel d'un classeur....

Re,

Essaie de mettre MO.ico
et
C:\Documents and Settings\Laurent Bougeant\Mes documents\Mes images\

 

[la croisée des pains]

Re : Changer l'icône Excel d'un classeur....

Re,

Essaie de mettre MO.ico
et
C:\Documents and Settings\LB\Mes documents\Mes images\

Tester et marche pas !!!!! je comprends pas pkoi

j'ai pris une ico du system et idem rien...

 

[SergiO]

Re : Changer l'icône Excel d'un classeur....

Je ne comrends pas non plus!

Voici le code complet pour vérif

Const FichierIco As String = "MO.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
   FIcone = "C:\Documents and Settings\Laurent Bougeant\Mes documents\Mes images\" & FichierIco 'TON CHEMIN D'ACCES VERS TON ICONE
  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

 

[la croisée des pains]

Re : Changer l'icône Excel d'un classeur....

Re,

testé et ça marche !

avec ton code...je ne comprends pas mon erreur,

je vais recommencé et comparer les codes.

merci sergio