focus à excel restant en icône

Version imprimable

26/09/2007, 15h14
potili2

focus à excel restant en icône

bonjour
des données arrivent régulièrement dans mon classeur (par une DDE) et celui ci fait la mise à jour toutes 10s.
comment obtenir que cette mise à jour se fasse, tout en maintenant excel sous forme d'icone?
comment redonner "la main" (le focus) à excel, toutes les 10 secondes, tout en continuant à travailer dans un autre programme?
merci pour votre aide.
Jean Pierre
26/09/2007, 15h19
ouskel'n'or

Essaie avec

Code:

Application.WindowState = xlMinimized
26/09/2007, 15h26
potili2

cette commande minimieze excel, mais c'est tout (à ma connaissance).
le but est de l'obliger à faire sa mise à jour obligatoirement toutes les 10 secondes donc lui donner la main tout en le maintenant en icone.
faire un clic virtuel, autrement dit.

bonjour,
Avec un timer...
essaie avec le code et les explications suivantes..
A mettre dans un module

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
Public m_Enabled1 As Boolean
 
'à l'ouverture du classeur..
'Private Sub Workbook_Open
'   m_Enabled1 = True
'   Timer1 "00:00:10"
'end sub
Private Sub Timer1(Delais As String)
Dim TT
Dim TB
    TB = Split(Delais & ":00:00", ":", -1)
    TT = TimeSerial(Hour(Time) + TB(0), Minute(Time) + TB(1), Second(Time) + TB(2))
 
    While m_Enabled1 = True
        'n'exécute que si l'application est minimisée
        If Application.WindowState = xlMinimized Then
            If TimeSerial(Hour(Time), Minute(Time), Second(Time)) >= TT Then
                TT = TimeSerial(Hour(Time) + TB(0), Minute(Time) + TB(1), Second(Time) + TB(2))
 
                'Exécuter le code nécessaire
                '.....
                'Si trop long mettre aussi un DoEvents ici
                '.....
                'Stop
                'Si le code à exécuté est long mettre la ligne ici au lieu d'avant le code, de cette façon, ne revient qu'après un nouveau delais entier.
                'TT = TimeSerial(Hour(Time) + TB(0), Minute(Time) + TB(1), Second(Time) + TB(2))
 
            End If
        End If
        DoEvents
    Wend
End Sub

J'ai testé et ça devrait fonctionner.
A+

26/09/2007, 16h00
ouskel'n'or
Tu lances la macro Depart avec ça
Code:

1 2 3 Sub Depart() Application.OnTime Now + TimeValue("00:00:10"), "TaMacroQuiFaitTout" End sub
Code:

1 2 3 4 5 6 Sub TaMacroQuiFaitTout() 'ta procédure '..... '..... Depart End sub
Tu prévois simplement un mode d'arrêt (délais -> Now + ...) ou interseption d'une touche.
Pas le tps de m'étendre, on m'attendmais LeForestier va prendre la suite ;)
26/09/2007, 16h31
potili2

si je comprends bien, l'idée n'est pas de donner la main à excel toutes les 10 s, mais de donner la main aux autres logiciels quand excel a fini son travail, donc excel est prioritaire.
pas bête du tout!
Je vais tester ça et vous tiens au courant!:king:
merci