Icônes et applications Excel

Le
M41
Bonsoir

Peut-on placée une petite image sur une feuille qui sera utilisée comme
icône de cette application contenant cette feuille, avec VBA ?

Cordialement

M41
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21379551
Bonjour,

D'une procédure de Denis Pasquier


Option Explicit
'________________________________________________
'pour changer l'icone de l'application Déclaration
'*** DANS LE MODULE THISWORKBOOK DU CLASSEUR ***

Const FichierIco As String = "Logo.ico"

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetClassLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function LoadImageA Lib "user32" _
(ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long


Dim HIcon As Long, hWnd As Long
'-----------------------------------------------------------------------

'Rememer l'icone de l'application XL a la fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If HIcon Then SetClassLongA hWnd, -14, HIcon
End Sub

'Change l'icone de l'application a l'ouverture du claseur
Private Sub Workbook_Open()
Dim FIcone As String
FIcone = Me.Path & "" & FichierIco
If Dir$(FIcone) <> "" Then
hWnd = FindWindowA(vbNullString, Application.Caption)
HIcon = GetClassLongA(hWnd, -14)
SetClassLongA hWnd, -14, LoadImageA(0, FIcone, 1, 0, 0, &H10)
End If
End Sub
'''''''''''''''''''''''''





"M41" 4b9d649a$0$17882$
Bonsoir

Peut-on placée une petite image sur une feuille qui sera utilisée comme
icône de cette application contenant cette feuille, avec VBA ?

Cordialement

M41
Publicité
Poster une réponse
Anonyme