Détection de la perte de focus de la fenêtre Excel

Version imprimable

30/06/2016, 15h58
basto

Détection de la perte de focus de la fenêtre Excel

Bonjour

Je lance un code VBA recurrent et temporisé dans un classeur Excel.

Je souhaite suspendre l'exécution de ce traitement lorsque la fénêtre Excel n'a plus le focus.

Malheureusement, le fait de positioner du code dans les événéments

Code:

Workbook_Deactivate ou WindowDeactivate

n'a pas l'air de fonctionner

Y a-t-il un moyen de s'appercevoir qu'Excel n'est plus la fenêtre active ?

D'avance merci pour votre retour

A+
30/06/2016, 16h04
casefayere

Bonjour,
sans bien comprendre ta demande, j'ai l'impression que tu utilises des "Select" ou "Activate" qui passent d'une fenêtre à l'autre, montres ton code si tel est le cas, tu constateras qu'on peut se passer de ces extensions en restant sur la fenêtre (Feuille, j'imagine) mais, je le répête, je n'ai peut-être pas compris
30/06/2016, 16h29
basto

Bonjour

Ma demande n'est pas de détecter les changements dans excel mais par exemple :
- J'ai mon classeur actif, je lance ma macro
=> tout fonctionne bien
- Je me positionne sur ma messagerie
=> Excel n'est plus la fenêtre active (c'est maintenant la messagerie)
=> Je détecte (je ne sais pas comment) ce changement et je peux comme celà interrompre ma boucle dans la macro

Est ce plus clair ?
30/06/2016, 20h04
Marc-L

Bonjour,

juste en passant un code bien conçu n'est pas affecté par le changement de l'application active !
Soit il y a un besoin qui clairement n'est pas exprimé soit le code est à revoir …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
30/06/2016, 21h03
unparia

Bonjour Marc-L

Citation:

un code bien conçu n'est pas affecté par le changement de l'application active

cela peut toutefois sentir la simulation de touches (par sendkeys ou une fonction de l'Api de Windows), que l'on veut éviter "ailleurs".
Il y a peut-être une autre explication encore, mais elle a alors à être en effet exposée.
01/07/2016, 09h45
basto

Bonjour à tous

Oui la macro fait un sendkey.

Une fois cette information donnée, y a-t-il une réponse à ma question ?

D'avance merci

A+
01/07/2016, 12h11
unparia

je m'en doutais un peu.
La réponse dépend maintenant des réponses à ces questions :
1) montre ta boucle (car ce sera selon)
2) la chose sera facile si pendant la durée de ta boucle, tu reste sur la feuille excel. Plus compliqué, mais réalisable sinon. Décris cet aspect-là également avec le maximum de précision.
01/07/2016, 12h17
Marc-L

Voir l'aide VBA de l'instruction AppActivate …

Comme demandé, voici le bout de code en question :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub genere_ecriture()
 Randomize
 
 [NBR_PASSAGE].Value = 0
 Do
   [NBR_PASSAGE].Value = [NBR_PASSAGE].Value + 1
   newHour = Hour(Now())
   newMinute = Minute(Now())
   newSecond = Second(Now()) + [TEMPO].Text
   waitTime = TimeSerial(newHour, newMinute, newSecond)
   Application.Wait waitTime
 
   ActiveSheet.Cells(9, 1).Select
   SendKeys CStr(Format(Now(), "dd/mm/yyyy")) & "{ENTER}"
   DoEvents
 Loop Until GetAsyncKeyState(65) <> 0
End Sub

Merci de vos lumières

01/07/2016, 17h06
basto

Bonjour

J'ai utilise AppActivate et cela fonctionne.

Merci. Peut être y a-t-il une meilleure solution mais cela me convient pour l'instant.

A+