Créer une macro qui s'exécute automatiquement à intervalles réguliers

Question

Bonjour,

Dans Excel, je souhaiterais réaliser une macro qui s'exécute automatiquement, par exemple, toutes les 5 minutes. Je maitrise honnêtement des macros dont le démarrage se fait à l'aide d'un bouton, mais dans un cas particulier, je souhauiterais qu'elle démarre seule à intervalles réguliers, sans intervention de ma part.

Merci pour votre aide

Daniel

Answer 1

Bonjour,

Je viens de recopier le code pour vérifier en ajoutant un msgbox dans la macro. Celui-ci s'affiche bien toutes les minutes. Regarde le classeur :

https://www.cjoint.com/c/MFujvgrOS86

Daniel

Answer 2

Merci pour ton aide,

avant ta dernière réponse je me suis dis que j'allais essayer de dissocier les différents codes que tu m'as transmis pour bien comprendre, séparément quelle instruction déclenche quoi.

J'ai commencé par tout laisser comme cela et........j'ai constaté que cela marchait.

Je n'ai donc pas tout compris mais comme cela marche, je vais y arriver.

Merci encore pour ton aide.

J'aurai peut être encore des précisions à demander mais tu m'as mis sur la bonne voie!

Answer 3

Bonjour Daniel,

Toutes les macros (parfois très longues) que j'ai réalisées sont toujours déclenchées par un bouton que ce soit dans les feuilles excel ou dans le ruban pour des macros d'impression, enregistrement, ouvertures diverses etc.

Je n'ai jamais réalisé de macro qui se déclenche automatiquement.

Les seuls codes que j'ai repris sont donc:

Dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnTime Intervalle, "Macro3", , False

End Sub

Private Sub Workbook_Open()

Intervalle = Now + TimeValue("00:01:00")

Application.OnTime Intervalle, "Macro3"

End Sub

Dans Module1

Sub Macro3()

' Macro3 Macro

    Range("A1").Select

    Selection.Copy

    Range("E1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Intervalle = Now + TimeValue("00:01:00")

    Application.OnTime Intervalle, "Macro3"

End Sub

N.B. Je ne comprends pas bien la logique de :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnTime Intervalle, "Macro3", , False

End Sub

J'ai l'impression qu'il manque quelque chose pour faire exécuter cela.

Sincères salutations

Daniel

Answer 4

Bonjour,

Qu'est-ce qui ne fonctionne pas ? La macro ne s'exécute jamais ? De plus, peux-tu coller le code dans ta réponse. Si j'ai besoin de le tester, je n'aurais pas à le réécrire.

Daniel

Answer 5

Bonjour Daniel,

au risque de passer pour un ****, voici ce que j'ai repris dans les modules en question.

C'est bêtement copier le contenu de A1 ( où j'ai mis la fonction "Maintenant" ) et le mettre dans E1.

Pourrais tu corriger, ou me dire où je me trompe ( puisque cela ne fonctionne pas)

Merci d'avance pour ton indulgence

Daniel