macro for pop up choices

[HappyChappy]

Hi dont know if its possible but i have a file that needs to have data sheets pasted into it. the data is held further down the file stucture which changes over time. for example main folder, year folder, month folder, week folder
inside the week folder is 7 spreasheets all dated for example debrief01.01.2020 to debrief07.01.2020 i need to open each one and copy the first sheet into my main folder spreadsheet. what i would like is a marco that prompts me for the file stucture by popping up a box to ask which year, then another which month, then which week. once i have told it where the files are to grab the data and paste them into the main spreadsheet.
Hope this makes sense. regards

 

[nemmi69]

This will prompt you for the year, month and day

Dim YearID, MonthID, DayID As String

Sub Prompts()
YearID = ""
MonthID = ""
DayID = ""

Do While YearID = ""
    YearID = InputBox("Which year[yyyy]?", ThisWorkbook.Name)
    If Len(YearID) <> 4 Then
        MsgBox "Year must be 4 characters [yyyy]", vbCritical, ThisWorkbook.Name
        YearID = ""
    End If
Loop
Do While MonthID = ""
    MonthID = InputBox("Which month[mm]?", ThisWorkbook.Name)
    If Len(MonthID) <> 2 Then
        MsgBox "Month must be 2 characters [mm]", vbCritical, ThisWorkbook.Name
        MonthID = ""
    End If
Loop
Do While DayID = ""
    DayID = InputBox("Which day[dd]?", ThisWorkbook.Name)
    If Len(DayID) <> 2 Then
        MsgBox "Day must be 2 characters [dd]", vbCritical, ThisWorkbook.Name
        DayID = ""
    End If
Loop

End Sub

 

[HappyChappy]

Thankyou most kind