Comment faire fonctionner une macro à une heure precise [Résolu]

[dreloman]

Bonjour a tous et bien tout est dans le titre , voila je souhaite qu'une macro imprimer fonctionne automatiquement tous les jour a une heure precise, comment puis-je faire merci d'avance

[Philippe JOCHMANS]

Bonjour

Avec Excel ouvert ou non lorsque l'heure arrive ?

Starec

[dreloman]

Les 2 si c'est possible et toutes m'est excusse je suis debutant sur exel.
Merci de m'avoir repondu

[JackOuYA]

Bonsoir,

Tu peu utiliser le gestionnaire de tâche de windows pour lancer excel avec une macro au démarrage ..


JacqueS.

[dreloman]

Oui mais je ne sais pas comment faire une macro de demarrage je suis oqp a lire un peut partout mais pas d'exemple de macro auto si on pouvais m'en donner un se serais magnifique et merci d'avance

J'ai trouver un exemple est ce que quelqu'un pourrais me dire ou et comment mettre par exemple la macro "Imprimer"

Code :

1
2
3
Private Sub Workbook_Open() 
    MsgBox "Bonjour " & Environ("UserName") 
End Sub

merci

[dreloman]

Enfin voila j'ai trouver donc probleme résolu

Code :

1
2
3
Private Sub Workbook_Open() 
    Imprime
End Sub

Merci a tous ceux qui mon répondu

J'ai oublier une chose sa c'est quand exel est fermer et avec une tache planifier il ouvre exel et imprime la feuille que je lui dit mais j'ai oublier que quand exel est encore ouvert que dois je faire pour qui l'imprime a une heure precise

[fring]

Bonjour,

Pour la tâche plannifiée je ne peux pas t'aider, je n'ai jamais essayé.

Concernant l'exécution d'une procédure à une heure fixe, il y a 4 choses à faire

1. code à l'ouverture du classeur pour lancer le timer (à placer dans ThisWorkbook)
   
   Code :

   1
   2
   3
   Private Sub Workbook_Open()
   lancer_timer
   End Sub

2. code du timer (à placer dans un module)
   
   Code :

   1
   2
   3
   Sub lancer_timer()
   Application.OnTime TimeValue("17:00:00"), "imprime"
   End Sub

3. code de la procédure dans lequel, en fin de code, on relance le timer dans le cas où le classeur reste ouvert en permanence (à placer dans un module)
   
   Code :

   1
   2
   3
   4
   Sub imprime()
   '...procédure
   lancer_timer
   End Sub

4. code à la fermeture du classeur pour stopper le timer (à placer dans ThisWorkbook)
   
   Code :

   1
   2
   3
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.OnTime TimeValue("17:00:00"), "imprime", , False
   End Sub

[dreloman]

Impecable tout fonctionne et maintenent je peus dire Résolut.

Encore un grand merci a tous