Ajouter une Icone dans le Titre d'un Usf

MuscatMimi

XLDnaute Accro
Bonsoir a tous

je me souviens plus du code pour afficher une icone dans la barre de titre d'un Usf
Si qq l'a en tête
merci a tous a l'avance

A +
 

MuscatMimi

XLDnaute Accro
Re : Ajouter une Icone dans le Titre d'un Usf

Salut Jean pierre et Jordan

jean Pierre ton fil est pas mal
mais c'est pas cele que je désire faire
Je désire avoir dans mon dosier de mon fichier un Icone, que
je voudrais mettre dans la barre de titre de mon Usf
Il y a qq temps il y avait un fil a ce sujet précis
Je n'ai pas retrouvé ce fil ,afin d'y copier le code

cordialement
 

JCGL

XLDnaute Barbatruc
Re : Ajouter une Icone dans le Titre d'un Usf

Bonjour à tous,

Un code trouvé ici :
Code:
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 UserForm_Initialize()
Dim IcoPath As String
IcoPath = ThisWorkbook.Path & "\Msn.ico"
Dim hIcon As Long
    hIcon = Len(Dir(IcoPath))
    If hIcon = 0 Then Exit Sub
    hIcon = ExtractIconA(0, IcoPath, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, hIcon
End Sub


A placer dans le code d'un USF

A+
 

Magic_Doctor

XLDnaute Barbatruc
Re : Ajouter une Icone dans le Titre d'un Usf

Bonjour,

J'ai trouvé une solution de derrière des fagots oubliés dans le disque dur.
Ne me demandez surtout pas comment ça marche ! ¡Ja ja ja!
Recopiez bêtement les codes.
Le reste est facile à adapter.
 

Pièces jointes

  • Icône Barre de Titre Usf (97-2003).xls
    83.5 KB · Affichages: 79

Discussions similaires

Réponses
68
Affichages
3 K

Statistiques des forums

Discussions
313 320
Messages
2 097 135
Membres
106 848
dernier inscrit
toufk