MkDir and .Saveas for Now -1, Business days?

[chabuca1]

Hello!

I have had great success (fun) finding out the following code:

MkDir "C:\Temp\" & Format(Now -1, "mm-dd-yy") & ""
ActiveWorkbook.saveas Filename:="C:\Temp\" & Format(Now - _ 1, "mm-dd-yy") & "\File" & Format(Now -1, "mm-dd-yy")

However this does not help me when I am running the code on a Monday! If anyone knows what I can write to get the current business day minus 1 business day (not calendar day) in that "Now" part, I would greatly appreciate it! Thank you for any direction.

Best regards!

Is this what you want?

'Author: eduardo Alvarez Bastida 
'Origin: http://www.planet-source-code.com
'Purpose: WorkingDays counts days except Weekends and Holidays
'Version: VB4+ 


'Put this In a CommandButton
'
Dim aH(8)
aH(1) = "1/1"
aH(2) = "5/2"
aH(3) = "21/3"
aH(4) = "1/5"
aH(5) = "5/5"
aH(6) = "16/9"
aH(7) = "20/10"
aH(8) = "25/12"
debug.print = WorkingDays("01/01/00", "01/01/01", aH())
'


Public Function WorkingDays(dBeginDate As Date, dEndDate As Date, ByRef aHolidays As Variant) As Integer
    Dim intTotalDays As Integer
    Dim intHoliday As Integer
    Dim booWeekend As Boolean
    Dim intSatSun As Integer
    Dim strCDayMonth As String
    Dim strNDayMonth As String
    Dim i As Integer
    Dim dNewDate As Date
    If dBeginDate>=dEndDate Then Exit Function
    intTotalDays = DateDiff("d", dBeginDate, dEndDate)


    For i = 1 To intTotalDays
        dNewDate = DateAdd("d", i, dBeginDate)


        If isWeekEnd(dNewDate) Then
            booWeekend = True
        Else
            booWeekend = False
        End If
        strNDayMonth = Day(dNewDate) & "/" & Month(dNewDate)


        For n = 1 To UBound(aHolidays)
            'strMonth = Mid(aHolidays(h), istr("/", 
            '     aHolidays(h)) + 1)


            If (strNDayMonth = aHolidays(n)) And Not booWeekend Then
                intHoliday = intHoliday + 1
                booWeekend = False
                Exit For
            End If
        Next n


        If booWeekend Then
            intSatSun = intSatSun + 1
        End If
    Next i
    WorkingDays = intTotalDays - intSatSun - intHoliday
End Function


Private Function isWeekEnd(ByRef dCheck As Date) As Boolean
    If DatePart("w", dCheck) = 1 Or DatePart("w", dCheck) = 7 Then isWeekEnd = True
End Function