Discussion :

[alexsolex]

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

[tirex28]

Bonjour,

Tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   AppActivate "Microsoft Excel"
   MsgBox ActiveWindow.Caption

Cordialement,

Tirex28/

[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

[tirex28]

Bonsoir,

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

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

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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é.

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...