[E-02] afficher excel quelle que soit l'application windows active

Version imprimable

22/10/2008, 14h15
alexsolex

[E-02] afficher excel quelle que soit l'application windows active

Bonjour

J'utilise la méthode onTime pour effectuer une fonction à un temps donné.

Cette fonction, a pour but d'afficher un message pour attirer l'attention de l'utilisateur.
J'ai tenté un bête msgbox, mais il s'affiche dans l'instance d'excel, et donc si l'utilisateur ne travaille pas dans son classeur à ce moment là il ne voit pas le msgbox (il est en train, par exemple, de travailler sur un autre logiciel)
Le but est que le fichier excel qui fait tourner la fonction ontime, puisse réapparaitre et se rappeler à la connaissance de l'utilisateur, quelque soit l'application active à ce moment là.

Auriez vous une idée ?

J'ai testé en plus du msgbox, un workbook.activate, un affichage de userform ; mais rien n'y a fait.

Merci
22/10/2008, 19h40
tirex28
Bonjour,

Tu peux essayer:
Code:

1 2 AppActivate "Microsoft Excel" MsgBox ActiveWindow.Caption
Cordialement,

Tirex28/
22/10/2008, 19h55
fring

Salut tirex ;)

Ca fait un moment que j'essaye différentes solutions et j'obtiens le même résultat avec ton code, c'est à dire que cela fait clignoter la fenêtre dans la barre des tâches mais cela ne me la ramène pas au premier plan.

Tu as une idée ôôôô grand manitou ?

Cdlt
22/10/2008, 20h18
tirex28

Bonsoir,

Citation:

Le but est que le fichier excel qui fait tourner la fonction ontime, puisse réapparaitre et se rappeler à la connaissance de l'utilisateur,

Citation:

cela fait clignoter la fenêtre dans la barre des tâches

Il me semblait que cela pouvait etre suffisant, si on veut vraiment ramener Excel au 1er plan il faut vraisemblablement se tourner vers les API mais ce n'est pas vraiment ma tasse de thé.

A+

Tirex28/

@fring: je ne dors jamais:D

Bonsoir,

Peut-être en évoquant le Grand Manitou via une recherche dans la FAQ ?

du genre :

Comment ramener une application déjà ouverte au premier plan ?
(non testé, à voir au vu de la rubrique : "piloter d'autres applications depuis Excel" donc Excel par Excel ?atttention à la remarque sur l'éditeur aussi...)
auteur : SilkyRoad
Cet exemple vérifie si la calculatrice est déjà ouverte, l'affiche au premier plan et sinon déclenche l'ouverture de l'application.
La procédure ne doit pas être déclenchée depuis l'éditeur de macros.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Private Declare Function BringWindowToTop Lib "user32" _
    (ByVal Hwnd As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function ShowWindow Lib "user32" _
    (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
 
 
'Remarque importante:
'La procédure ne doit pas être déclenchée depuis l'éditeur de macros /!\
'
Sub ApplicationPremierPlan()
    Dim Hwnd As Long
 
    'Récupère le Handle d'une fenêtre (la calculatrice dans cet exemple).
    'Le Handle est un nombre entier unique généré par Windows afin d'identifier les fenêtres.
    '"Calculatrice" correspond au titre de la fenêtre.
    Hwnd = FindWindow(vbNullString, "Calculatrice")
 
    'Si la calculatrice est déjà ouverte
    If Hwnd > 0 Then
        'Ramène la calculatrice au premier plan
        BringWindowToTop Hwnd
        'Affiche en mode "Normal"
        ShowWindow Hwnd, 1
        Else
        'Sinon, ouvre la calculatrice
        Shell "C:\WINDOWS\system32\calc.exe", vbNormalFocus
    End If
End Sub

http://excel.developpez.com/faq/?pag...pliPremierPlan

cordialement,

Didier

22/10/2008, 21h37
Godzestla

Bonsoir,

j'avais aussi ce problème, mais spécifiquement lorsque excel ouvrait des documents word. Et la solution fonctionnait.

Voici le lien du post de l'époque. Les solutions semblent les mêmes.
Mais j'ai peu-être trop vite regardé.

Bonsoir,

Pourquoi se "casser la tête" à ce point ?
1) relevé du hwnd de la fenêtre de départ (celle active, donc)
2) se référer à ce handle pour la mettre au premier plan

exemple depuis un UserForm (ici, on ouvre l'explorateur, puis on replace le UserForm au 1er plan) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
 
Private Sub Command1_Click()
  monhwnd = FindWindow(vbNullString, Me.Caption)
  ret = Shell("explorer.exe", vbMaximizedFocus)
  DoEvents
  SetWindowPos monhwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

depuis une feuille, il suffit de remplacer Me.Caption par le titre de la fenêtre ...

24/10/2008, 14h11
alexsolex

Bonjour et merci à tous.

Malheureusement, aucune de ces techniques ne convient. En fait ca ne me ramène jamais excel au premier plan, et ca m'étonne pas mal.

Si j'avais fait une erreur dans les reprises des codes que vous me montrez, quelles auraient t'elles pu être sachant que je n'ai pas d'erreur lors de l'execution ?

Autre fil de recherche, le but en fait, est que la personne qui a ouvert le classeur excel, pense à le refermer pour ne pas en bloquer l'utilisation pour d'autres. C'est un soucis récurrent dès lors que plusieurs personnes travaillent sur un même fichier. J'ai bien tenter le travail en multiutilisateurs, mais a cause des macros contenus dans le classeur, ca ne fonctionne pas.
N'y a t'il pas moyen d'alerter efficacement un utilisateur utilisant un classeur, que d'autres personnes essayent d'y accéder ?