Åbne flere filer, ud fra input

Husk at rette stien til filerne.

Sub OpenWeekFiles()
    Dim strUgeNr As String
    Dim strTimer As String
    Dim strUgedata As String
   
    strUgeNr = InputBox("Indtast venligst ugenr.", "Ugenummer")
    strTimer = Replace("C:\Timer_#.xls", "#", strUgeNr)
    strUgedata = Replace("C:\Ugedata_#.xls", "#", strUgeNr)
   
    If Dir(strTimer) <> "" Then
        Workbooks.Open strTimer
    Else
        MsgBox "Filen " & strTimer & " eksisterer ikke.", vbCritical
    End If
   
    If Dir(strUgedata) <> "" Then
        Workbooks.Open strUgedata
    Else
        MsgBox "Filen " & strUgedata & " eksisterer ikke.", vbCritical
    End If

End Sub

Hej word-hajen.

Tak for dit svar, det var lige det der skulle til.

Coolkey

Velbekomme.