Horloge et Excel

Fermé
sonate86 Messages postés 110 Date d'inscription mardi 19 décembre 2006 Statut Membre Dernière intervention 16 septembre 2021 - 12 janv. 2009 à 11:03
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 12 janv. 2009 à 14:20
Bonjour,
je voudrais dans un programme excel declencher une action suivant la date inscrite dans l'ordinateur : par exemple recuperer le contenu d'une cellule à chaque debut de mois. Pouvez-vous m'aider
merci d'avance
A voir également:

2 réponses

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 277
12 janv. 2009 à 13:07
Voilà un petit truc que j'ai fait
il est possible de l'adapter à peu de frais.... pour une date

' Quand on ferme, on désactive sinon.....Sub auto_close()

On Error Resume Next
Application.OnTime temps, Procedure:="ActualiseTimer", Schedule:=False

End Sub

' à l'ouverture du fichier mais on peut le mettre sous l'action d'un bouton start / stop

Private Sub Workbook_Open()

Créer_Menu
' Ici je rajoute la création de mon menu perso puis je lance ma procédure
ActualiseTimer
End Sub



Sub ActualiseTimer()
' Sheets("feuil1").Calculate ' pour afficher la date et l'heure sur la "feuil1"
temps = Now + TimeValue("00:05:00")
Application.OnTime temps, "ActualiseTimer"
'cela permet d'excuter "majheure"toutes 5 minutes ou X temps
Application.OnTime temps, "Sauvegarde"
End Sub


' nota : on peut faire la même chose avec la date
0
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 040
12 janv. 2009 à 14:20
Salut,

Si tu souhaites exécuter un code à une date bien précise tu peux saisir cette date par exemple en A1 12/01/2009

et colles ce bout de code dans la thisworkbook et si tu ouvres ton fichier le même jour qui est saisi en A1 le code s'executera. il convient de changer cette date àprès exécution

Private Sub Workbook_Open()
If Range("A1") = Date Then

'code à exécuter

End If
End Sub
0