check folder bestaat

[snb]

Ik betwijfel dat.
Vermijd het gebruik van overbodige (Object)variabelen.
Deze code is voldoende:

Sub PDF_Boeken_Nieuws()
  c00 = "/Users/homecare/Documents/Geertje/Facturen/" & Year(Date)

  If MsgBox("Wilt u deze factuur boeken?.", 292, " ") = 6 Then
    On Error Resume Next
    MkDir c00
    On Error GoTo 0

    Sheets("Inkomsten").Unprotect

    With Sheets("Verkoopfactuur")
      .Range("F2:M59").ExportAsFixedFormat 0, c00 & "/" & Join(Array(.[H11], .[H5], .[H10]), "_") & ".pdf"
        
      Sheets("Inkomsten").Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(, 15) = Array(.[H10], .[Q3], .[H11], [I15], .[H5], .[L45], .[l46], .[L47], .[L48], .[Q4], .[Q7], .[Q15], [month(H10)], [year(H10)])
      .Range("H5,O15,G15:K43").ClearContents
      .Range("O2").Value = Range("O2").Value + 1
    End With

    Sheets("Inkomsten").Protect

    UserForm2.Show
  End If
         
  Application.Goto Sheets("Verkoopfactuur").Range("H5")
End Sub

 

[RMSpan]

Ik betwijfel dat.
Vermijd het gebruik van overbodige (Object)variabelen.
Deze code is voldoende:

Sub PDF_Boeken_Nieuws()
  c00 = "/Users/homecare/Documents/Geertje/Facturen/" & Year(Date)

  If MsgBox("Wilt u deze factuur boeken?.", 292, " ") = 6 Then
    On Error Resume Next
    MkDir c00
    On Error GoTo 0

    Sheets("Inkomsten").Unprotect

    With Sheets("Verkoopfactuur")
      .Range("F2:M59").ExportAsFixedFormat 0, c00 & "/" & Join(Array(.[H11], .[H5], .[H10]), "_") & ".pdf"
        
      Sheets("Inkomsten").Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(, 15) = Array(.[H10], .[Q3], .[H11], [I15], .[H5], .[L45], .[l46], .[L47], .[L48], .[Q4], .[Q7], .[Q15], [month(H10)], [year(H10)])
      .Range("H5,O15,G15:K43").ClearContents
      .Range("O2").Value = Range("O2").Value + 1
    End With

    Sheets("Inkomsten").Protect

    UserForm2.Show
  End If
         
  Application.Goto Sheets("Verkoopfactuur").Range("H5")
End Sub

Dat ga ik zeker uitproberen, maar op een later tijdstip.
Ik heb nu een nieuw probleem wat ik wil proberen op te lossen met jullie hulp, ik maak er een nieuw item van.