Application OnTime

:alerte: Bonjour aux dieux du VBA ! :alerte:

Je suis à bout de ressources... :mur:

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:

---

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 !

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 :)

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

Dans ce cas, la syntaxe generale est la suivante

Code:

---

Application.OnTime HeureDeLancement, MacroALancer

---

soit par exemple

Code:

---

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

---

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

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:

---

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