Automatisch opslaan

[ronald1986]

Goeiedag mensen,

Ik heb een vraag over het automatisch opslaan van bestanden. Een hele tijd geleden heb ik ook via hier een code gekregen waarmee alle openstaande bestanden automatisch worden opgeslagen. Ik heb toen denk ik iets te vroeg gejuicht. Dit is de code:

in een module:

Sub oplaan_openstaande_bestanden()
    For Each wb In Workbooks
        Application.Goto wb.Sheets(1).Cells(1)
        Application.ActiveWorkbook.Save
    Next wb
End Sub

En in this workbook:

Private Sub Workbook_Open()
    Application.OnTime TimeValue("06:00:00"), "opslaan_openstaande_bestanden"
End Sub

Hij geeft nu een melding:

Compileerfout: Er wordt een function of variabele verwacht.

Weet iemand hoe ik dit kan oplossen, of dat er misschien nog een andere manier is om alle openstaande Excel bestanden automatisch op te slaan?

Bvd!

 

[spaarie]

Ronald,

Volgens mij heb ik je hierin voorzien, maar bij mij werkt het uitstekend...
Dit zijn dan wel bestanden die al opgeslagen zijn, misschien dat daar de fout in zit; Een workbook die nog niet eerder opgeslagen is?

 

[dnties]

Zie dat je
Application.OnTime TimeValue("06:00:00"), "opslaan_openstaande_bestanden"
als naam gebruikt, terwijl
Sub oplaan_openstaande_bestanden()
de 's' mist in het woord 'opslaan'.

Tijs.

 

[spaarie]

Heel scherp op vrijdag 16:51 Tijs!

 

[ronald1986]

Inderdaad erg scherp!
De code werkt nu perfect!