Automatiseren van wijzigen in excel bestanden

Ik heb een Excel sheet waarin ik in cel B1 een weeknummer heb staan. Daaraan gelinkt komt de datum te staan in D1. Dat werkt goed.

Nu wil ik het weeknummer automatisch laten oplopen met telkens 1 , tot 52 , zodat de datum veranderd in D1 en het bestand automatisch opslaat met een vooraf bepaalde naam, bijvoorbeeld test_week_1.xlsm.
Dezelfde routine wil ik doorvoeren met de volgende oplopende weeknummers tot en met weeknummer 52.

Zodat ik uiteindelijk 52 bestanden heb met verschillende weeknummers ,-datums en bestandsnamen.

Ik heb zo eea opgezocht met VBA maar dat werkt totaal niet.

Sub UpdateFiles()
MyDir = ActiveWorkbook.Path
DataDir = MyDir & "\test"
ChDir (DataDir)
Nextfile = Dir("*.xls")
While Nextfile <> ""
Workbooks.Open (Nextfile)
Workbooks(Nextfile).Sheets("DataTab").Range("A1") = "newvalue"
ActiveCell.Value = ActiveCell.Value + 1
Workbooks(Nextfile).Save
Workbooks(Nextfile).Close
Nextfile = Dir()
Wend
End Sub

Kan iemand mij hierbij helpen?

Gr Ron

Begin eens met een voorbeeldje te posten. De code die je hebt gepost opent steeds een ander bestand, dus dat lijkt mij niet de bedoeling. Je zou eens kunnen beginnen met een macro op te nemen, daarin een paar bladen toe te voegen en te hernoemen en dan de code te bekijken.

En dit opgelost is zal je volgende vraag waarschijnlijk zijn " Hoe krijg ik al die informatie op 1 blad?"

er zijn op 1 blad meer cellen dan dat je tot uw pensioen kunt opvullen.

digitall12 zei:

Zodat ik uiteindelijk 52 sheets heb met verschillende weeknummers ,-datums en bestandsnamen.

Klik om te vergroten...

52 sheets of 52 documenten?

Ik ga zo snel mogelijk een voorbeeld posten.
En inderdaad , ik bedoel 52 xlsm bestanden van weeknummer 1 tm 52.

Simpel voorbeeldje:

Top Edmoor!
Met een kleine aanpassing doet de code het!

Dank je wel!