Discussion :

[olive59]

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

[hunteshiva]

bonjour,

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

[olive59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[Mammy Potter]

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.

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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