Discussion :

[potili2]

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

[ouskel'n'or]

Essaie avec

Code :

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

    Application.WindowState = xlMinimized

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

[LeForestier]

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

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

[ouskel'n'or]

Tu lances la macro Depart avec ça

Code :

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

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

Code :

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

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

[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!
merci