Hallo,
ik heb een macro die automatisch het bestand opslaat als PDF.
Tevens wordt hij geopend na het opslaan.
Echter, mocht er al een bestand bestaan met dezelfde naam, wordt deze overschreven.
Hoe kan ik dit voorkomen.
Bij voorkeur krijg ik eerst een melding dat er al een bestand bestaat met dezelfde naam en de vraag of hij die moet overschrijven. Daarna moet ik dan de mogelijkheid hebben om een andere naam te geven.
Onerstaand de macro zoals hij er nu staat.
Sub PDF_opslaan()
'
' PDF_opslaan Macro
'
'
ChDir "T:\map 1\map 2\map 3\map 4"
Range("A1:I55").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("K11").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
ik heb een macro die automatisch het bestand opslaat als PDF.
Tevens wordt hij geopend na het opslaan.
Echter, mocht er al een bestand bestaan met dezelfde naam, wordt deze overschreven.
Hoe kan ik dit voorkomen.
Bij voorkeur krijg ik eerst een melding dat er al een bestand bestaat met dezelfde naam en de vraag of hij die moet overschrijven. Daarna moet ik dan de mogelijkheid hebben om een andere naam te geven.
Onerstaand de macro zoals hij er nu staat.
Sub PDF_opslaan()
'
' PDF_opslaan Macro
'
'
ChDir "T:\map 1\map 2\map 3\map 4"
Range("A1:I55").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("K11").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub