Ajouter une Icone dans le Titre d'un Usf

[MuscatMimi]

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 +

 

[jeanpierre]

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

Bonsoir vaucluse immo,

Regarde ce fil : https://www.excel-downloads.com/threads/placer-une-icone-dans-la-barre-de-titre-dun-userform.2351/

Mais il y a du boulot.

Bonne soirée.

Jean-Pierre

 

[JORDAN]

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

Bonjour,

je pense à FaceId
FaceId = 3 ' pour afficher une imprimante par exemple

A tester

 

[MuscatMimi]

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]

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

Bonjour à tous,

Un code trouvé ici :

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+

 

[MuscatMimi]

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

Bonjour a tous

Merci JCGL,Jordan,Jean pierre

Juste pour une icone ,je pensais que le Code était plus simple,

Bonne journée a tous

A+

 

[Magic_Doctor]

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.