Macro automatisch starten

[Youri92]

Ik heb een excel bestand wat via een macro een back-up kopie van het bestand kan emailen.

Nu wil ik alleen dat deze macro automatisch gestart word elke maandag.
Dit hoeft niet op een specifiek tijdstip. Het bestand is niet continu geopend gedurende de dag, daarom zou ik graag willen dat de macro word gestart op het moment dat het bestand voor het eerst word geopend op maandag.

Hoe doe ik dit?

 

[edmoor]

Zo bijvoorbeeld. Zet dit in de Workbook sectie:

Private Sub Workbook_Open()
    If Weekday(Date) = 2 Then
        If Range("A1") <> Date Then
            [COLOR="#006400"]'Roep hier je backup routine aan[/COLOR]
            Range("A1") = Date
        End If
    End If
End Sub

 

[Youri92]

Maar word hij nu niet elke keer geactiveerd als ik op die dag het bestand open?

 

[edmoor]

Hij wordt alleen geactiveerd als het maandag is (Weekday(Date) = 2) en A1 niet de datum van vandaag (Range("A1") <> Date) bevat.

 

[Youri92]

Dus als ik het bestand 5 keer open op maandag dan word ie 5 keer geactiveerd?

 

[edmoor]

Nee, juist niet, daar is die datum in A1 voor. Die wordt automatisch gevuld als de backup gedaan is. Dat gebeurt dan diezelfde maandag niet nog een keer.