mettre un icon dans la berre d'un userform

[nrdz83]

Bonsoir à tous quelqu'un aurait il l'astuce, le code ou un lien pour mettre un icon dans la barre d'un userform?
D'avance merci à tous et bonne soirée, amitiés 🙄

 

[JCGL]

Re : mettre un icon dans la berre d'un userform

Bonjour à tous,

Personnellement, je n'ai jamais vu une icône dans la barre d'une USF...
Mais cela est peut être possible...

A+

 

[MichelXld]

Re : mettre un icon dans la berre d'un userform

bonsoir


Tu peux tester

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 Fichier As String
    Dim x As Long
    
    'Chemin et nom du fichier icône à afficher
    Fichier = "C:\Documents and Settings\mimi\dossier\bouton.ICO"
    'Vérifie si le fichier existe
    If Dir(Fichier) = "" Then Exit Sub
    
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub

bonne soirée
michel

 

[nrdz83]

Re : mettre un icon dans la berre d'un userform

bonsoir michel xld je l'ai testé ce code pris sur un autre site mais bon marche pas tanpis c'etait juste pour voir,pas grave je verrai ça plus tard merci quand même pour vos lumière bonne soirée amitiés 🙂

 

[kjin]

Re : mettre un icon dans la berre d'un userform

Bonsoir,
Un essai à adapter
Les deux fichiers doivent se situer dans le même répertoire, sinon changer le chemin de l'image dans la macro (Img)
A+
kjin

 

[JCGL]

Re : mettre un icon dans la berre d'un userform

Bonjour à tous,

Un essai avec un code un peu plus court
Les deux fichiers dans le même répertoire

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+

 

[nrdz83]

Re : mettre un icon dans la berre d'un userform

merci et bonsoir jcgl voila ce dont je cherché, encore bravo mes amitiés 🙄

 

[JCGL]

Re : mettre un icon dans la berre d'un userform

Bonjour à tous,

Mister Bean : les solutions proposées par MichelXLD et Kjin fonctionnent parfaitement. Un petit merci collégial eut été de bon aloi.

Au plaisir de te lire
A+ à tous

 

[nrdz83]

Re : mettre un icon dans la berre d'un userform

bonsoir tout le monde désolé si je me suis mal exprimé mais c'est a vous tous que je m'adressais😎 pour vous remercier mais j'avoue j'aurais du mettre vos pseudo milles excuses à michelxld,kjin et jcgl, j'espère avoi froissé personne et super l'aide que vous nous apportez, bravo les gars je cherche un joli icon maintenat pour personnaliser mes userform, mes amitiés

 

[JCGL]

Re : mettre un icon dans la berre d'un userform

Re,

Ta réponse vaut "pardon"
Merci de ton retour : il est vrai que j'étais septique dans mon premier message mais nos amis m'ont incité à pousser plus avant. Bravo à eux

Toujours un plaisir de te lire Mister Bean.
Même si, des fois, c'est "un peu dur" de te comprendre du premier coup... Arf, Arf 🙂🙂
A+ à tous