Discussion :

[bobmcgee]

Bonjour aux dieux du VBA !

Je suis à bout de ressources...

J'ai un fichier Excel qui comporte des macros de copier/coller les valeurs d'une colonne où les données sont rafraichies à toutes les 10 minutes. En tout, 15 boutons à lesquels sont associés 15 macros identiques mise à part l'endroit où coller les valeurs que je dois exécuter manuellement.
Exemple:

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
28
29
30
31
32
Sub ab()
'
' ab Macro
'

'
    Range("AH39").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AF39:AF56").Select
    Selection.Copy
    Range("AH39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub



Sub ac()
'
' ac Macro
'

'
    Range("AI39").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AF39:AF56").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AI39").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Et ainsi de suite jusqu'à la macro ao, jusque-là, assez simple !

Mais je cherche à les faire exécuter une à la suite de l'autre avec un intervalle de 45 minutes entre chaque macro par l'application OnTime à l'ouverture du fichier.

Exemple:
Ouverture du fichier à 7:00
Exécution de la macro aa à l'ouverture du fichier
Exécution de la macro ab 45 minutes plus tard (7:45)
Exécution de la macro ac 45 minutes plus tard (8:30)


Probablement un problème simple à régler pour la plupart des gens ici, mais comme mes connaissances en la matière sont vraiment nulles, j'ai beau chercher, je suis incapable de trouver des réponses à mon problème.

Merci de votre aide !

[Jean-Philippe André]

Bonjour,

bien que le temps de traitement sois infime dans la plupart de tes macros, tu souhaites exactement
- lancer 45 minutes apres la fin du traitement d'une macro la macro suivante ?
ou
- lancer a 7h00 / 7h45 / 8h30 / etc. ?

Ici si tu utilises Application.OnTime, cela signifiera que le fichier reste ouvert. Est-ce bien ce que tu souhaites ?
Tu peux egalement passer par le planificateur de taches Windows

[bobmcgee]

Bonjour Jean-Philippe André,

Effectivement, je souhaite que, après 45 minutes, la macro suivante soit exécutée. Mes fichiers restent également ouverts.

Merci

[Jean-Philippe André]

Dans ce cas, la syntaxe generale est la suivante

Code :

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

Application.OnTime HeureDeLancement, MacroALancer

soit par exemple

Code :

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

Application.OnTime Now + TimeValue("00:45:00"), "ac"

qui lancera la macro ac dans 45 minutes a partir de maintenant =]

[eriiic]

Bonjour,

comme tu décales ton collage d'une colonne à chaque fois, appelle toutes les 45' la même macro où tu gères ce décalage selon le n° d'appel :

Code :

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

1
2
3
4
5
6
7
8
Sub coller()
    Static col As Long ' = 0 à l'ouverture
    Range("AF39:AF56").Copy
    Range("AH39").Offset(col).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    col = col + 1
End Sub

eric