Discussion :

[coklin]

Bonjour,


Je voulais savoir comment faire pour désactiver une macro programmée pour se lancer à une heure précise.

Par exemple, j'ai :

Code :

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

Application.OnTime TimeValue("16:59:30"), "Photo"

A l'ouverture, la macro est programmée pour se lancer à 16:59:30. Je cherche le code pour désactiver cette programmation.


Merci à celui qui acceptera de m'aider.

Coklin

[ucfoutu]

Bonjour,

Si j'ai bien compris :
- Une variable (appelons-la toto) booléenne à portée générale (= False au départ)
- un bouton de commande pour inhiber . Dans son évènement click

Code :

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

toto = True

- dans ta macro Photo, en 1ère ligne :

Code :

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

If toto then exit sub

Si ce n'est pas ce que tu voulais dire, explique plus précisément.

Ah oui :! et si tu veux l'inhiber dès le départ (par exemple en fonction d'un cas - date, user, autre....) : tu mets toto à True dès le départ ...

[coklin]

Salut ucfoutu,


Merci je vois ce que tu veux faire. Tu veux déterminer le lancement de la macro en fonction d'une variable boolean qui changera à chaque fois que j'appuie sur un bouton. D'où l'idée de la mettre en public.


Je pensais plus au code correspondant à l'inverse du Application.OnTime, mais cette idée doit fonctionner également.


Je te tiens au courant de l'évolution.


Merci de ton aide,


Coklin

[ucfoutu]

Oui...
L'inverse n'existe évidemment pas..
(Que pourrait être l'inverse, même en langage courant, de "nous prendrons le train à 19 heures"? .... Je ne le vois pas ... mais on peut toujours décider, y compris au denier moment, de ne pas prendre le train prévu ...)

[AlainTech]

Bonjour à tous.

Pour désactiver un OnTime programmé:

Code :

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

1
2
Application.OnTime EarliestTime:=TimeValue("16:59:30"), _
    Procedure:="Photo", Schedule:=False

[coklin]

Salut AlainTech,


Merci beaucoup de m'avoir répondu, je vais essayer ta solution.

ucfoutu, je comprends pas pourquoi t'es tjrs aussi compliqué(e). Tu demandes sans cesse des précisions pas forcément utiles, même si c'est très gentil de ta part d'aider.

D'autre part, ce que tu ignores ne signifie pas que cela n'existe pas, AlainTech vient de t'en apporter la preuve flagrante. Au moins, sa réponse te servira également.

Donc merci à toi d'avoir voulu m'aider, et merci à AlainTech pour la rapidité et la simplicité de sa réponse.

Bonne journée,


Coklin