Changer icone, titre et divers d'une appli sous excel
Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 045 fois - Téléchargée 28 fois
Contenu du snippet
Il s'agit de montrer comment changer divers paramètres d'apparence d'une appli tournant sous excel mais où excel n'est plus apparent.
Le développement complet est sous VBA.
Le fichier excel complet est trop lourd pour être mis sur le site je mets donc le code du "This Workbook" si dessous .
Pour ce qui est des menus et le reste du code soit je l'envoie à qui me le demande, soit je le mets sur le site : en compressé 1.2 MO je ne sais pas si c'est possible.
L'image montre ce que l'on peut obtenir en sortie sur un projet réalisé...
jmluc@jmlucienvb.org
n'hésitez pas à me contacter pour plus amples infos
jmlucienvb
Le développement complet est sous VBA.
Le fichier excel complet est trop lourd pour être mis sur le site je mets donc le code du "This Workbook" si dessous .
Pour ce qui est des menus et le reste du code soit je l'envoie à qui me le demande, soit je le mets sur le site : en compressé 1.2 MO je ne sais pas si c'est possible.
L'image montre ce que l'on peut obtenir en sortie sur un projet réalisé...
jmluc@jmlucienvb.org
Source / Exemple :
XXXXXDébut du rajout Icone
Const FichierIco As String = "Logo JML.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
'XXXX Fin de la première partie
Private Sub Workbook_Open()
'XXXXXXXX Partie Icone
Dim FIcone As String
FIcone = Me.Path & "\" & FichierIco 'Chemin vers l'icone si elle est dans le répertoire
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
'XXXXXXXXX Fin partie icone
'Interdiction du contrôle "X"
Application.OnKey "^x", ""
Application.OnKey "^v", ""
Application.WindowState = xlNormal
'Application.EnableEvents = False
'Application.Width = 760
'Application.Height = 480
Call Mxx_A00_DisplayMainExcelFile
'Paramétrage pour interdire la sortie
final_end = False
'Etat de la scroll verticale
numberSCROLLROW = 1
EtatDuFractionnement = False
'Ouvrir toujours sur la feuille SYSAttente
ActiveWorkbook.Sheets(11).Activate
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
'MsgBox "non"
Cancel = True
End Sub
Private Sub Workbook_Deactivate()
'Pour interdire une ouverture intempestive d'un autre fichier dans l'instance
'Ce programme fait appel à deux APIs qui sont déclarées dans le module MAPIs_Declare
On Error GoTo gestErr
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
Nom = ActiveWorkbook.Name
FName = ActiveWorkbook.Path & "\" & Nom
ActiveWorkbook.Close SaveChanges:=False
FName = LongToShort(FName)
Tmp = ShellExecute(0, "open", "Excel.exe", FName, 0&, 1)
Exit Sub
End If
gestErr:
If Err.Number = 0 Or Err.Number = 91 Then Exit Sub
MsgBox Err.Number
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Application.EnableEvents = True
If final_end Then
'XXXXX Partie Icone
If HIcon Then
SetClassLongA hWnd, -14, HIcon
End If
'XXXXX Fin partie icone
'A réactiver pour test
Call fin
Else
Cancel = True
'ActiveWorkbook.Sheets(11).Activate
Application.WindowState = xlMinimized
End If
End Sub
Conclusion :
n'hésitez pas à me contacter pour plus amples infos
jmlucienvb
A voir également
- Divers icone
- Icone titre - Meilleures réponses
- Icone divers - Meilleures réponses
- Changer le titres de chaques fenetre ouverte - Codes sources - Visual Basic / VB.NET (Modules)
- Fenêtres d'internet, changement de titre. - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Changer le titre d'une fenêtre [dev c++] - Codes sources - C / C++ / C++.NET (API)
- Changer le titre d'une fenetre dos [devc++] - Codes sources - C / C++ / C++.NET (Astuces)
- Delphi / Pascal : Comment changer le titre project1 dans la barre et dicone??? - CodeS SourceS - Guide
Commentaires
svp, j'ai besoin du fichier complet traitant des menus en PJ sur bcgvia@gmail.com.
veuillez me l'envoyer le plus tôt possible.
Merci pour du bon code.
J'ai développé une application sous Excel VBA et je voudrai savoir aussi si il est possible au demarrage de l'application Excel de cacher que Excel demarre avant que mon application ne demarre. Car au demarrage on voit bien Excel demarre.
1/ mettre une page vide jusqu'au demarrage de mon application
2/ permettre de mettre une image ou autre données pendant le demarrage de l'application excel.
Merci d'avance
si tu peux m'envoyer le reste d'ailleurs !!
- Icone : dans le prog il faut que l'icone soit dans le même répertoire que le prog xls. Il faut aussi que cela soit une icone bonne taille et .ico
il n'y a aucune raison que cela ne marche pas.
- Application.caption="Le nom que tu veux" change le titre
-Les procédures qui ne marche pas c'est essentiellement parce que ces quelques lignes sont extraites d'un prog plus complet non instalable sur ce site (taille)...
Comme je l'ai dit ceux qui le veulent suffit de me demander y'en a qui l'ont fait...:
jean-marc.lucien@acoss.fr
ou
jmluc@jmlucienvb.org
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.