een keer geeft hij hem aan als excel bestand
en de andere keer niks (blanco bestand)
en de andere keer niks (blanco bestand)
Code:
Private Sub CommandButton2_Click()
Sheets("factuur").Copy
With ActiveWorkbook
With .Sheets(1).UsedRange
.Value = .Value
End With
.SaveAs "C:" & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("I9") & " " & Workbooks("HOVENIERS factuur.xlsm").Worksheets("factuur").Range("D12")
.Close
End With
End Sub