Sujet Précédent Sujet Suivant

Horloge et Excel

sonate86 Messages postés 126 Statut Membre -  
Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 2
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
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
Réponse 2 / 2
Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
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