Manipuler les fenetres enfant d'excel

Soyez le premier à donner votre avis sur cette source.

Vue 4 224 fois - Téléchargée 401 fois

Description

Peut être que certain d'entre vous ce sont déjà demandé si il serait possible de manipuler les fenêtres enfant d'excel.
Voir de réduire une fenêtre à une seule cellule.

Voici donc, dans la série cela ne sert apparemment à rien, un exemple simple qui montre comment enlever la barre de titre de la fenêtre d'un fichier excel.

Malgré cette démo je vous déconseille fortement de jouer avec ce type de méthode car excel n'aime pas bien !!!
Il a vite fait de se rebeller. j'ai testé pour vous :(

En utilisation simple avec cette demo il n'y a pas de risque.
Par contre, si vous voulez vous amuser à bidouiller ce fichier, évitez d'avoir d'autre fichier excel ouvert.

Vous trouverez aussi dans ce fichier une méthode pour détecter la reprise d'activité de l'utilisateur.
Ainsi que 2 indicateurs d'attentes:
un indicateur circulaire et un indicateur linéaire.

Enfin pour mettre en forme tout cela j'ai intégré et adapté, une de mes sources déjà publiée et que vous retrouverez ici:
http://www.vbfrance.com/codes/COLOR-PICKER-SANS-API-UNIQUEMENT-CALCUL_48247.aspx

Bonne Prog.

3ddI7IHd

Source / Exemple :


'Dans le Zip

'en Annex:

'La serie d'API utilisés pour trouver et manipuler une fenêtre enfant:

Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Conclusion :


Je me suis pas mal amusé à faire cette démo.

A+

PS. Niveau initié pas pour la complexité, mais pour le risque, car pour sortir d'un plantage c'est parfois pas simple.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

bigfish_le vrai
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8 -
Ne fonctionne pas sous excel2007 et +
Je regarderais à l'occase si le code pourrait être adapté au version apres xl2003

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.