Changer l'icone d'UN fichier excel

[Speed41]

Bonjour,

Je voudrais changer l'icone d'un seul fichier excel. J'ai bien cherché dans les propriétés du fichier mais y a pas de changement d'icone (je ne veux pas changer l'icone d'un raccourci).

L'objectif est d'avoir des icones différentes par rapport aux types de fichiers excels pour plus de clareté.

Les icones utilisés doivent êtres libres, c'est à dire que je dois pouvoir utiliser celles que je dessine

Si vous avez une info pour m'aider je suis preneur

Merci d'avance

[fring]

Bonjour,

A ma connaissance ce que tu veux faire n'est pas réalisable vu que l'icône est liée au type de fichier et pas à son nom.

Une solution éventuelle, créer un répertoire et y insérer un raccourci pour chaque fichier, à ce moment là chaque raccourci sera paramétrable individuellement.

[sylvain giardini]

1 - Creer un raccourci sur le bureau vers ton fichier (clck droit/nouveau/raccourci) .

2 - Click droit sur le raccourci puis 'proprietés' puis 'changer Icone'.

[TheCaribouX]

Envoyé par Speed41

Bonjour,

Je voudrais changer l'icone d'un seul fichier excel. J'ai bien cherché dans les propriétés du fichier mais y a pas de changement d'icone (je ne veux pas changer l'icone d'un raccourci).


Merci d'avance

Envoyé par sylvain giardini

1 - Creer un raccourci sur le bureau vers ton fichier (clck droit/nouveau/raccourci) .

2 - Click droit sur le raccourci puis 'proprietés' puis 'changer Icone'.

mmhh, pas sur que la solution lui convienne (meme si a mon avis c'est un peu la seule aussi...)

[Speed41]

Et oui la solution du raccourci n'est pas celle que je voulais (c'est celle que j'utilise déjà). Elle ne me conviens pas totalement mais s'il n'y a pas d'autre solution je vais m'en contenter .

Merci de votre aide

[SilkyRoad]

bonjour


Tu peux tester cette procédure à placer dans le module du classeur "ThisWorkbook".

Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function SendMessageA Lib "user32" _
      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
      ByVal lParam As Long) As Long
 
Private Declare Function ExtractIconA Lib "shell32.dll" _
      (ByVal hInst As Long, ByVal lpszExeFileName As String, _
      ByVal nIconIndex As Long) As Long
 
 
Private Sub Workbook_Activate()
    Dim Fichier As String
    Dim x As Long
    
    'Chemin et nom du fichier icône à afficher
    Fichier = "C:\dossier\nomfichier.ICO"
    'Vérifie si le fichier existe
    If Dir(Fichier) = "" Then Exit Sub
    
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Application.Caption), _
        &H80, False, x
 
End Sub
 
 
Private Sub Workbook_Deactivate()
    Dim Fichier As String
    Dim x As Long
    
    Fichier = Application.Path & "\excel.exe"
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Application.Caption), _
        &H80, False, x
 
End Sub

bonne journée
michel

[Speed41]

Merci pour ta macro.

Elle fonctionne bien mais ne correspont pas à ce que je cherche.

Elle permet de changer l'icone du fichier Excel quand il est ouvert (icone dans la barre de tache normalement en bas et icone dans la barre de la feuille en "haut").

Ce que je cherche c'est changer l'icone dans l'explorateur. C'est dans cette mesure que cela ne correspond pas vraiment.

Merci encore pour ton aide, je garde la macro dans un coin je pense l'utiliser