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
michdenis
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" a écrit dans le message de groupe de discussion : 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
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" <boomerang.pro00@wanadoo.fr> a écrit dans le message de groupe de discussion :
4b9d649a$0$17882$ba4acef3@reader.news.orange.fr...
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 ?
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" a écrit dans le message de groupe de discussion : 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 ?