Discussion :

[basto]

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 :

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

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+

[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

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

[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, …

[unparia]

Bonjour Marc-L

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.

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

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

[Marc-L]

Voir l'aide VBA de l'instruction AppActivate …

[basto]

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

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

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