Vooraleerst bedankt voor uw aandacht!
Fout komt op bij regel:
If Dir("W:\PROJECT\&naam& " * "\" & naam & "-" & naam2 & "_" & naam3 & ".pdf") <> "" Then
Fout 13 tijdens uitvoering :
Typen komen niet met elkaar overeen
De waardes van naam, naam2 en naam3 zijn respectievelijk bvb 0001193, 0020 en A (dus geen 'verboden' tekens)
Deze code werkt wel voor welbepaalde opgegeven map:
Sub PDF()
'
' PDF Macro
'
'
Dim naam As String
Dim naam2 As String
Dim naam3 As String
naam = ActiveSheet.Range("M6").Value '
naam2 = ActiveSheet.Range("M7").Value '
naam3 = ActiveSheet.Range("O7").Value '
If Dir("W:\PROJECT\0001193 GANTOIS-MAKEN SCHOEPEN\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf") <> "" Then
MsgBox "Het bestand: " & naam & "-" & naam2 & "_" & naam3 & ".pdf bestaat reeds!" '
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\PROJECT\0001193 GANTOIS-MAKEN SCHOEPEN\BEREKENINGEN\" & naam & "-" & naam2 & "_" & naam3 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End If
End Sub
Maar aangezien niet alles in deze map dient te komen ...