Macro Automatique Excel

Bonjour à tous,

Je suis novice en Visual Basic et lors de mon stage on me demande d'organiser un demarrage automatique de mes macros tous les lundis matin à 8h sur Excel pour télécharger et organiser des fichiers. Que dois-je faire? Svp aidez-moi. Merci d'avance.

Cordialement,

Olivier

bonjour,

la tache décrite n'est pas trés explicite, que doit tu vraiment faire?
:arrow: éxécuter ton fichier excel tous les matins à 8h qui regoupe tes macros?
ou
:arrow: faire des macros qui téléchargent et organisent des fichiers?

Bonjour à vous,

Mon problème est le suivant: je désire faire démarrer mes macros d'excel tous les lundis matin à 8h. Pour cela voici ce que j'ai déjà fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub START() Do While True If Weekday(Now) = vbMonday Then Do While True If Time > TimeValue("06:58:00") Then Do While True If Time > TimeValue("07:59:59") Then If Time < TimeValue("08:01:30") Then   MsgBox ("ITS WORKS")   End If End If Application.Wait 60 'Application.Wait Now + TimeValue("00:01:00") Loop End If Application.Wait 3600 'Application.Wait Now + TimeValue("01:00:00") Loop End If Application.Wait 86400 'Application.Wait Now + TimeValue("24:00:00") Loop End Sub

---

Avec cette routine je ne lance pas mes macros. Que dois-je rajouter?

Merci à vous.

Cordialement,

Olivier

bonjour


des boucle do while imbriquée supose que ton fichier reste ouvert
au moins un peu avant la date

il peut y avoir des erreurs si la premieres macro n'a pas fini les autres risques d'etre pénalisée

pas tres interessant comme automatisation


fait des fichier avec simplement les macros

et créé des taches ca sera beaucoup moins lourd

maintenant pour tes macro qui doivent s'executer on peut t'aider

pour les taches peut etre sur le forum windows


au plaisir

Je pense que la meilleur solution c'est de créer une tache planifiée qui ouvrira ton fichier excel dans lequel tu exécutes les macros à l'ouverture du classeur.

Si ton Excel est toujours ouvert ..(ou du moins est ouvert sur le bon fichier le lundi à 8h00..) pour gérer l'appel à ta fonction tu peu utilise Application.ontime

à l'ouverture du classer

Code:

---

1 2 3

Private Sub Workbook_Open() Application.OnTime "08:00", "MaProcedure" '"programme" le lancement de la procédureà 8h00 End Sub

---

puis ta procédure dans un module public :

Code:

---

1 2 3 4 5 6

Sub MaProcedure() If Weekday(Now) = vbMonday Then MsgBox "Mon traitement du lundi matin" End If Application.OnTime "08:00", "MaProcedure" 'Relance le lendemain End Sub

---