Macro Programmé

Macro Programmé - VB/VBA/VBS - Programmation

Marsh Posté le 20-06-2006 à 10:27:11    

Bonjour,
 
Je voudrais savoir si il est possible de programmer l'execution d'un macro dans Excel à une date et une heure précise, que l'on aurait indiqué auparavent biensur?? :??:  
 
Merci d'avance!
 
 

Reply

Marsh Posté le 20-06-2006 à 10:27:11   

Reply

Marsh Posté le 20-06-2006 à 11:27:41    

A Adapter et pour cela voir l'aide en ligne


Option Explicit
Dim HeureExecution As Double, Interval As Long
 
'   Pour Amorcer le Timer toutes les x secondes
Private Sub Lancer(ByVal NbSecondes As Long)
    Interval = NbSecondes
    Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecuterTimer"
End Sub
 
'   Pour Stopper le Timer
Private Sub Arreter()
    On Error Resume Next
    Application.OnTime HeureExecution, "ExecuterTimer", , False
End Sub
 
'           Lancer toutes les x secondes
'
'Now        :   Renvoie une valeur de type Variant (Date) indiquant la date et l'heure en cours
'               fournies par la date et l'heure système de votre ordinateur.
'OnTime     :   Cette méthode programme l'exécution d'une procédure à un moment précis
'               (soit à une heure précise soit après l'écoulement d'un délai précis).
'TimeSerial :   Renvoie une valeur de type Variant (Date) contenant une heure précise (heure, minute et seconde)
 
Private Sub ExecuterTimer()
    ' Ici on affiche un msg toutes les 10 s
    MsgBox "Coucou", vbOKOnly, "Timer"
    HeureExecution = Now + TimeSerial(0, 0, Interval)
    Application.OnTime HeureExecution, "ExecuterTimer"
End Sub
 
'   Auto_Open s'exécute automatiquement à l'ouverture du classeur
'   ici on amorce le Timer toutes les 10 s
Private Sub Auto_open()
    Lancer (10)
End Sub


Message édité par kiki29 le 22-06-2006 à 12:20:51
Reply

Marsh Posté le 20-06-2006 à 11:34:41    

Je comprends pas très bien ce qu'il faut que je fasse en fait, je débute dans ceci.
Ca correspond à quoi en fait tout ca?? Je dois remplacer quoi par quoi???
Désolé pour mon incompétance!!
 

Reply

Marsh Posté le 20-06-2006 à 12:49:27    

Plus simple : voir commentaires plus haut + Aide en ligne


Option Explicit
Public Arret As Boolean
 
Private Sub Demarrage()
Dim Depart As Double
  Depart = Now + TimeValue("00:00:10" )
   
  If Not Arret Then
    Application.OnTime Depart, "MaMacro"
  Else
    On Error Resume Next
    Application.OnTime Depart, "MaMacro", Schedule:=False
  End If
End Sub
 
Public Sub MaMacro()
    MsgBox "coucou"
End Sub
 
Private Sub TestArret()
    Arret = True
End Sub
 
Private Sub Auto_Open()
    Demarrage
End Sub


Message édité par kiki29 le 20-06-2006 à 12:51:08
Reply

Marsh Posté le 04-09-2007 à 17:09:24    

Bonjour,
 
Je suis complétement débutant en programmation et un peu dépassé par les évènements.
Je voudrais programmer en VBA sur Excel un prog capable d'ouvrir plusieur fichier dans un dossier et de les intégrer dans une base de données.
Comment pourrais-je mis prendre.
Merci d'avance


Message édité par cedobe le 04-09-2007 à 17:09:48
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed