Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel userform

userform

1 réponse
Avatar
silene
Bonjour,
De quelle fa=E7on peut-on mettre une image .ico dans la=20
barre de titre d'un userform .

Merci d'avance

Silene
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain CROS
Bonjour.

Tu colle ça dans le module de ton userform.

Private Declare Function GetActiveWindow& Lib "user32" ()
Private Declare Function SendMessageA& Lib "user32" _
(ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)
Private Declare Function ExtractIconA& Lib "shell32" _
(ByVal hInst&, ByVal lpszExeFileName$, ByVal nIconIndex&)
Private Declare Function FlashWindow& Lib "user32" _
(ByVal hwnd&, ByVal bInvert&)

Private Sub UserForm_Activate()
Const WM_SETICON = &H80
SendMessageA GetActiveWindow, WM_SETICON, False, _
ByVal ExtractIconA(0, "Nom_Complet_du_fichier_ico_avec_chemin_et extension", 0)
FlashWindow GetActiveWindow, False
End Sub

Alain CROS.

"silene" a écrit dans le message de news: 1fce101c38a42$f22dd370$
Bonjour,
De quelle façon peut-on mettre une image .ico dans la
barre de titre d'un userform .

Merci d'avance

Silene