Lanczr une macro automatiquement toutes les minutes

Bonjour,

J'ai enregistré un macro nommée "MAJ_TOUT" afin de rafraichir des données

Elle se trouve dans mon module 5 (les autres sont vides)

Sub MAJ_TOUT()

'

' MAJ_TOUT Macro

'

'

Sheets("Feuil2").Select

Sheets("QUERY").Visible = True

Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("QUERY").Select

ActiveWindow.SelectedSheets.Visible = False

Range("A5").Select

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

End Sub

J'ai besoin de la lancer automatiquement toutes les 30 secondes

Pouvez vous SVP m'indiquer comment faire en sachant que je suis un peu neuneu en VBA : je ne suis en mesure que de copier le ou les codes si vous me précisez dans quel module le copier

Il y a beaucoup de réponses dans beaucoup de forum mais rien d'assez basique pour moi...

Merci d'avnace pour votre aide !!

Bonjour,

Regardes du coté de Application.OnTime :

Sub MAJ_TOUT()

    Sheets("Feuil2").Select
    Sheets("QUERY").Visible = True
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    Sheets("QUERY").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("A5").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

    'récursive !
    Application.OnTime Now + TimeValue("00:00:30"), "MAJ_TOUT"

End Sub

Bonjour,

Exemple de OnTime

http://boisgontierjacques.free.fr/fichiers/OnTimeHeure.xls

Il ne faut pas oublier:

Sub auto_close()

On Error Resume Next

Application.OnTime temps, Procedure:="majHeure", Schedule:=False

End Sub

Ceuzin

SUPER !!

Cela fonctionne

Merci beaucoup pour votre aide et le temps passé à me répondre