Map importeren met macro uit andere map op basis van oudste map

[Pannekoek1]

Zou iemand mij kunnen helpen?

Ik heb in Excel de volgende macro geschreven om sheet 1 uit bestand '2' te importeren naar sheet 1 bestand '1', zie onderstaand (ik heb expres niet de bestanden bijgevoegd want in de macro is het ook van belang waar het bestand opgeslagen wordt). Ik vroeg me nu af of het ook mogelijk is om een macro te maken die automatisch het oudste bestand te importeren, dus als ik elke dag een bestand opslaan met een dagnummer, (begin dus met 01012012 tot en met 21122012) en dat als ik de macro activeer het automatisch de laatste dag importeert. Of als het niet anders kan de dagen nummeren naar 1 t/m 365.

Sub kopie()
Workbooks.Open Filename:="C:\Users\Mike\Desktop\2.xlsx"
    Sheets("Sheet1").Copy After:=Workbooks("1.xlsm").Sheets(1)
    Windows("2.xlsx").Activate
    ActiveWindow.Close
End Sub

Alvast bedankt!

 

[edmoor]

Je kunt toch met een datum/tijd functie de dag van gisteren ophalen en deze omzetten naar 30052012?
Dat weet je dat je het bestand 30052012.xlsx moet hebben.

Sub kopie()
    Dim bstGisteren As String

    bstGisteren = Format(now()-1, "ddmmyyyy") & ".xlsx"

    Workbooks.Open Filename:="C:\Users\Mike\Desktop\" & bstGisteren
    Sheets("Sheet1").Copy After:=Workbooks("1.xlsm").Sheets(1)
    Windows(bstGisteren).Activate
    ActiveWindow.Close
End Sub

 

[Pannekoek1]

Beste Edmoor, heel erg bedankt! ik heb het zojuist getest, het werkt perfect!

 

[edmoor]

Graag gedaan