désactiver macro à la fermeture

[rirutol]

Salut à tous,

Voila mon probleme, j'ai un fichier Excel qui fait des recalculs automatiques toutes les 5 secondes

- Dans ThisWorkbook:

Sub Workbook_Open()
Call RefreshData
End Sub

- Dans Module :

Sub RefreshData()
Application.OnTime Now + TimeValue("00:00:05"), "RefreshData"
Application.CalculateFull
End Sub

Simplement, comme la fonction RefreshData est rappelée pour le classeur, si j'ai plusieurs fichiers ouverts dans un même classeur, quand je ferme le fichier concerné, il se ré-ouvre au bout de 5 secondes

N'y a t-il pas moyen de désactiver la Sub à la fermeture du fichier ou encore de ne l'appliquer qu'à ce fichier??

Merci,

rirutol

 

[bond]

Re : désactiver macro à la fermeture

Il faudrait utiliser :
Application.OnTime TimeValue(TimeAlert), "RefreshData", , False

ici TimeAlert est une variable où devrait être stocké ton dernier
Now + TimeValue("00:00:05")

 

[rirutol]

Re : désactiver macro à la fermeture

Salut,

Euh, je ne comprends pas vraiment où je dois les mettre les codes

 

[bond]

Re : désactiver macro à la fermeture

Dans le Sub Workbook_BeforeClose
Ainsi à la fermeture du fichier, la commande en cours 'Application.OnTime' sera annulée par le False, et le fichier ne sera pas ré-ouvert pour l'exécuter.

 

[rirutol]

Re : désactiver macro à la fermeture

Salut,

Je suis désolé mais ça ne marche pas quand je le fait
Je précise bien : je souhaite que le Sub se désactive à la fermeture de la WorkSheet plutot que du WorkBook...

 

[Pierrot93]

Re : désactiver macro à la fermeture

Bonjour,

place peut être le code donné dans le module de la feuille en question, événement " Deactivate" de la feuille, enfin si j'ai bien compris...

Private Sub Worksheet_Deactivate()

End Sub

bonne journée
@+

 

[rirutol]

Re : désactiver macro à la fermeture

Bonjour,

Non ça ne marche pas ou alors je le fais mal, je ne sais pas
Ci-joint un fichier exemple

Essayez : vous ouvrez un autre fichier dans le même classeur et vous fermez mon fichier, il se ré-ouvrira au bout de 5 secondes

 

[tototiti2008]

Re : désactiver macro à la fermeture

Bonjour rirutol, Bonjour bond, Bonjour Pierrot ,

Un essai

 

[Pierrot93]

Re : désactiver macro à la fermeture

Re, bonjour Toto

regarde cet excellent article de notre ami Didier sur la méthode "ontime" :
Tutoriels : myDearFriend! Excel Pages

 

[rirutol]

Re : désactiver macro à la fermeture

Salut,

Super c'est ce que je voulais
Merci à tous pour votre aide

rirutol

 

[rirutol]

Re : désactiver macro à la fermeture

Salut,

Je suis désolé mais j'ai encore un problème sur ce fichier
Le gros problème vient du fait qu'avec ce code, si j'ouvre le fichier "pb desactivation macro.xls" de toto, la macro se met bien en route etc..
Mais comme le classeur est maintenant ouvert, si j'ouvre un autre fichier dans ce meme classeur, il veut également faire ce calcul dans ce fichier (d'où une erreur s'il n'y a pas d'onglet "Feuil1")
N'y a t-il pas moyen de mettre la sub dans une feuille uniquement???
Ou alors de pouvoir également selectionner précisemment le fichier (et non pas le classeur) où sera appliqué la fonction?

 

[bond]

Re : désactiver macro à la fermeture

comme le classeur est maintenant ouvert, si j'ouvre un autre fichier dans ce meme classeur
selectionner précisemment le fichier (et non pas le classeur)

J'avoue ne pas tout comprendre, quelle différence fais tu entre un fichier et un classeur ?
Ce qui est sur c'est que la macro de tototiti tourne sur Feuil1, c'est écrit en dur :

Application.Sheets("Feuil1").Calculate

Sans être sur d'avoir compris ton pb et ce que tu veux, remplace la ligne de code précédente par

ThisWorkbook.Sheets("Feuil1").Calculate