Discussion :

[Guidhy]

Bonjour le forum !

Une petite question à laquelle je ne trouve pas de réponse :

Est-il possible de mettre une image dans la barre du haut d'un userform ?
(Ex : le petit logo FF dans le haut de la fenetre de votre navigateur.) Je souhaiterai en fait personnaliser le userform aux couleurs de ma société

Merci à vous et bonne journée à tous.

[ouskel'n'or]

Dans la barre je ne sais pas (j'ai déjà posé la question... restée sans réponse) mais j'ai trouvé une autre solution : Supprimer la barre de titre et la remplacer par un contrôle image. Tu as le code dans la FAQ VBA-Excel pour cette suppression.

[Guidhy]

Bon tant pis...

Je vais me rabattre sur ta solution alors

Je laisse le sujet ouvert jusqu'à demain au cas où la solution tomberai du ciel...

Puis je le ferme demain matin si comme toi je n'ai pas d'autre réponses

Comme d'hab, merci Ousk

[SilkyRoad]

bonjour

Un exemple pour ajouter un icone dans la barre de Caption:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
 
    Fichier = "C:\Documents and Settings\mimi\dossier\bouton.ICO"
    x = Len(Dir(Fichier))
    If x = 0 Then Exit Sub
 
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End Sub

bonne journée
michel

[Guidhy]

Woaw super ! Pile poil ce qu'il me fallait ! Merci beaucoup mimi ! T'es un chef

Bonne soirée à toi