Beste Excel goeroe's,
Ik ben al een geruime tijd aan het snuffelen en verschillende codes geprobeerd maar het lukt mij niet:
Voor ons bedrijf maken wij servicebonnen die de monteurs gebruiken voor hun werkzaamheden. Verkoop binnendienst maakt deze aan.
Er is een gedeelde schijf op de server voor deze bonnen: S:\Servicebonnen 2017\PDF\ en S:\Servicebonnen 2017\XLS\
de huidige code werkt zonder problemen:
Sub Saveas()
Dim sbnaam As String
Dim padnaam As String
padnaam = "S:\Servicebonnen 2017\PDF"
sbnaam = Range("F12")
If sbnaam = "" Then
MsgBox "Gelieve de servicebon volledig in te vullen."
Exit Sub
End
Exit Sub
Else
ActiveWorkbook.Sheets("Servicebon").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=padnaam & sbnaam & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=1, _
OpenAfterPublish:=False
End If
End Sub
Nu wil ik alleen het XLS gedeelte ook implanteren maar dat lukt mij niet... wie kan mij helpen?
Ik ben al een geruime tijd aan het snuffelen en verschillende codes geprobeerd maar het lukt mij niet:
Voor ons bedrijf maken wij servicebonnen die de monteurs gebruiken voor hun werkzaamheden. Verkoop binnendienst maakt deze aan.
Er is een gedeelde schijf op de server voor deze bonnen: S:\Servicebonnen 2017\PDF\ en S:\Servicebonnen 2017\XLS\
de huidige code werkt zonder problemen:
Sub Saveas()
Dim sbnaam As String
Dim padnaam As String
padnaam = "S:\Servicebonnen 2017\PDF"
sbnaam = Range("F12")
If sbnaam = "" Then
MsgBox "Gelieve de servicebon volledig in te vullen."
Exit Sub
End
Exit Sub
Else
ActiveWorkbook.Sheets("Servicebon").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=padnaam & sbnaam & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=1, _
OpenAfterPublish:=False
End If
End Sub
Nu wil ik alleen het XLS gedeelte ook implanteren maar dat lukt mij niet... wie kan mij helpen?