Opslaan als PDF met directory naar keuze

[huubvandesande]

L.S.,
onderstaande code gebruik ik om een bestelling om te zetten naar een pdf met gebruikmaking van bepaalde cellen met een naam. Ik Wil nu omdat het verschillende goederen betreft deze niet opslaan in een vooraf ingestelde directory (zoals vaak wordt aangeven) maar in een directory vrij naar keuze. De naam moet wel zijn samengesteld uit het werkblad. Ik heb al wat geprobeerd e.e.a. te wijzigen maar blijf ronddraaien zonder goed resultaat. Graag Uw hulp in deze.

Private Sub CommandButton1_Click()

'    Dim OutApp As Object    "als het via mail verzonden gaat/moet worden"
'    Dim OutMail As Object   "als het via mail verzonden gaat/moet worden"
'    Dim strbody As String   "als het via mail verzonden gaat/moet worden"
    Dim MyName
    
    MyName = Format(Now, "yyyy mm dd") & "_" & Range("D32") & "_" & Range("C1")         '& Range("O50")
    
    Dim data(4)
    With Sheets("aanvraag")
        data(0) = .Range("D18").Value    'datum aanvraag
        data(1) = .Range("D16").Value    'aanvrager
        data(2) = .Range("D32").Value    't.b.v.:
        data(3) = .Range("D33").Value    'wat/goederen aangevraagd
       
    End With
     
    ChDir "C:\Temp\Bestelling"
    Workbooks.Open FileName:=("C:\temp\bestelling\Overzicht_bestellingen.xlsm")
    Sheets("Blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4) = data
    ActiveWorkbook.Save
    ActiveWorkbook.Close

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="G:\LEE\DINFRA\EXO_MO\Team\17_100_10_Executief\Unitleiding\Bestelling\" & MyName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

End Sub

Met vriendelijke groet,

Huub.

 

[Timshel]

Is mij niet geheel duidelijk wat je wilt.
Het vermoeden is dat je in plaats van een waarde voor de bestandsnaam een celverwijzing wenst.
Dus zoiets:

...
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=[COLOR=#ff0000]Sheets(1).Range("A6")[/COLOR] & MyName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
...

Met de padnaam in cel A6 van het eerste werkblad.

 

[huubvandesande]

Is mij niet geheel duidelijk wat je wilt.
Het vermoeden is dat je in plaats van een waarde voor de bestandsnaam een celverwijzing wenst.
Dus zoiets:

...
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=[COLOR=#ff0000]Sheets(1).Range("A6")[/COLOR] & MyName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
...

Met de padnaam in cel A6 van het eerste werkblad.

De naam van het bestand wordt samengesteld uit het betreffende Excel bestand alleen de plaats waarin het moet komen, de keuze bestaat uit ongeveer 8 verschillende directory's moet de aanvrager zelf kunnen bepalen. Het/De bestandsnaam wordt in deze macro goed vermeld alleen wordt het bestand geplaatst in de algemene directory i.p.v. de directory van de soort (bijv. directory "lunchpakketten" als het een aanvraag is voor lunchpakketten).

Met vriendelijke groet,

Huub.

 

[Timshel]

Is je vraag nou opgelost of niet?
Zo niet, dan blijft betrekkelijk onduidelijk wat je nou precies wilt.
Plaats dan om te beginnen eens een helder voorbeeldbestand.

 

[gast0660]

Is zoiets de bedoeling?

 

[huubvandesande]

Is zoiets de bedoeling?

Ja. Bedankt helemaal. Hartelijke dank voor jullie hulp en inzet en tijd.

Met vriendelijke groet,

Huub.

 

[gast0660]

Hoi,
Mooi zo:thumb:
Bonus: