Lancement macro et sauvegarde automatisés

Bonjour à tous !

Sur le fichier ci-joint, je cherche à lancer la macro suivante :

    Sheets("RECENSEMENT").Select
    ActiveWorkbook.RefreshAll

- à l'ouverture du fichier (OK dans mon fichier)

- toutes les heures (NOK dans mon fichier)

De plus, je voudrais automatiser la sauvegarde de ce fichier toutes les minutes.

Sauriez-vous éclairer ma lanterne et me fournir le code adéquat aux 2 demandes surlignées en gras ?

Cordialement,

Charles CARON

C'est bon j'ai réussi via :

Private Sub Workbook_Open()

Sheets("RECENSEMENT").Select
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:05:00"), "enregistrement"
Application.OnTime Now + TimeValue("01:00:00"), "actualisation"

End Sub

+

Sub enregistrement()

Application.DisplayAlerts = False
DoEvents
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:05:00"), "enregistrement"

End Sub

+

Sub actualisation()

Sheets("RECENSEMENT").Select
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("01:00:00"), "actualisation"

End Sub