Déclenchement limité d'une macro

[Opera_6]

Bonjour tout le Forum,

Mon niveau ne me permet pas de trouver la solution à mon problème, soit: est-il possible qu'une macro ne puisse être exécutée qu'une seule fois dans les 24 heures? Que faut-il faire?

Merci à tous.

 

[@+Thierry]

Bonsoir

Il y a plusieurs solutions, une qui me vient à l'esprit serait de faire écrire la date du jour et de pointer dessus à chaque lancement de cette macro...

Sub MacroOneTimeAday()
Dim TheDay As Date

TheDay = Format(Now, "DD/MM/YYYY")
If TheDay = Sheets("Spy").Range("a1") Then
MsgBox "La macro a déjà tournée"
Exit Sub
Else
Sheets("Spy").Range("a1") = TheDay
MsgBox "La macro peut tourner"
End If

End Sub

Bien sûr la feuille "Spy" peut être uyne feuille cachée.

Bonne Soirée
@+Thierry

 

[Opera_6]

Bonsoir Thierry,

Quelle rapidité, en plus... c'est le Grand Thierry qui me répond.

Merci Thieery, merci Le Forum

 

[@+Thierry]

merci à toi !