Enregistrement automatique à l'aide d'une macro

Option Explicit

Declare Function SetTimer Lib "user32" _
      (ByVal hwnd As Long, _
      ByVal nIDEvent As Long, _
      ByVal uElapse As Long, _
      ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
      (ByVal hwnd As Long, _
      ByVal nIDEvent As Long) As Long

Global iCounter As Integer

Sub TimerProc(ByVal hwnd As Long, _
               ByVal uMsg As Long, _
               ByVal idEvent As Long, _
               ByVal dwTime As Long)

      'Ici ton code
      iCounter = iCounter + 1
      Debug.Print "boucle N°" & iCounter
      ActiveWorkBook.Save
End Sub




Sub initTimer()
Dim lngTimerID As Long
Dim BlnTimer As Boolean
    lngTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)
    If lngTimerID = 0 Then
      MsgBox "Timer not created. Ending Program"
      Exit Sub
    End If
    BlnTimer = True
End Sub