pdf maken

[don42]

beste helpers

ik heb dit:

Private Sub CommandButton2_Click()
Dim bestandnaam As String
bestandnaam = "D:\formulier\" & Sheets("Aanvraag2").Range("d14").Value
If Dir(bestandnaam, vbDirectory) = vbNullString Then MkDir bestandnaam
naam = Sheets("Aanvraag2").Range("d14").Value

ChDir "D:\formulier\" & naam
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Het bestand is opgeslagen in  " & bestandnaam & "\" & naam & "-Aanvraag2.pdf"
      
End Sub

er komt een foutmelding
en onderstaand gedeelte van de code kleurt geel

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

wie ziet wat er waar fout zit

bvd
Don

 

[HSV]

Beter?

ActiveSheet.ExportAsFixedFormat 0, bestandnaam & "\" & naam & "-Aanvraag2.pdf"

 

[don42]

Weinig verschil helaas
had de map formulier van mijn D schijf gewist en merk nu dat de dir ook niet meer zelf aangemaakt wordt

MkDir bestandnaam

kleurt geel
maak ik vervolgens op de D schijf zelf een map formulier aan
krijg ik de zelfde foutmelding als in het begin van mijn vraag

 ActiveSheet.ExportAsFixedFormat 0, bestandnaam & "\" & naam & "-Aanvraag2.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

en kleurt dit gedeelte geel op!

 

[edmoor]

Als je zegt een foutmelding te krijgen, vertel deze er dan ook bij.
Bestaat het opgegeven pad wel?

 

[HSV]

Bestaat de map 'formulier' in D ?

 

[don42]

De map formulier staat in d:\formulier
maar als deze map er niet zou staan zou deze toch aangemaakt moeten worden via mkDir

de foutmelding is:

 

[edmoor]

Wij kunnen niet zien wat er in de variabele bestandsnaam staat.

 

[HSV]

Dan wordt er een map aangemaakt met wat er hier staat.

Sheets(1).Range("d14").Value

 

[don42]

bedoel je

bestandnaam = "D:\formulier\" & Sheets("Aanvraag2").Range("d14").Value

d14 is een naam bv jan janssen
daar staat een naam van de ontvanger (letters dus)

 

[HSV]

Maar dit...

"D:\formulier\"

..moet wel aanwezig zijn.

 

[edmoor]

Doe net voor het opslaan als PDF eens dit:

MsgBox "D:\formulier\" & naam & "\" & naam & "-Aanvraag2" & ".pdf"

Laat dan hier zien wat er in die messagebox staat.

 

[don42]

Dit is het resultaat

 

[Ginger]

maar als deze map er niet zou staan zou deze toch aangemaakt moeten worden

Elk element van het pad moet bestaan voordat je de uiteindelijke kan aanmaken. Als je map 4 wilt aanmaken in het pad c:\1\2\3 maar de mappen 2 en 3 bestaan niet, zal de opdracht MkDir "c:\1\2\3\4" een error genereren.

 

[edmoor]

Dit is het resultaat

Bekijk bijlage 329899

En dat hele pad bestaat?
Dus: D:\formulier\Jan Janssen

 

[don42]

Ja in de map formulier wordt de map Jan Janssen aangemaakt maar blijft dan leeg

 

[HSV]

Probeer het zo maar eens.

Hier worden de mappen formulier en naam aangemaakt als ze niet bestaan.

Private Sub CommandButton2_Click()
naam = Sheets("Aanvraag2").Range("d14").Value
CreateObject("shell.application").Namespace("D:").newfolder "formulier"\" & naam
    ActiveSheet.ExportAsFixedFormat 0,"D:\formulier\" & naam & "\" & naam & "-Aanvraag2.pdf"
        MsgBox "Het bestand is opgeslagen in D:\formulier\" & naam
End Sub

 

[don42]

#16
weer foutmelding

deze code maakt ook de sub map niet aan

 

[edmoor]

Maak er dit van:

CreateObject("shell.application").Namespace("D:").newfolder "formulier\" & naam

Fieptoutje van Harry

 

[don42]

#18
Deze code maakt idd de mappen aan (heel mooi)
maar de mappen blijven leeg er wordt geen pdf in de map geplaats

 

[don42]

Ik ontdek net als ik een naam type in cel D14 het wel werkt
voer ik een naam in via een userform dan komt de foutmelding
iemand hier de oplossing voor?