Excel bestand opslaan als PDF met titel uit cellen

[Renewerk]

Hallo,

Ik heb geprobeerd om te zoeken of er een soortgelijke vraag gesteld is op dit forum, die heb ik "nog" niet gevonden, vandaar deze topic.

Ik heb een excel bestand op mijn werk, hiervoor heb ik een macro gemaakt die het bestand opslaat als een .pdf bestand.
Dit werkt prima, maar ik loop tegen een aantal problemen op als ik meer ermee wil doen.
Wat zou ik graag willen:

1) Het bestand opslaan als .pdf file, op dezelfde locatie als waar het originele Excel bestand staat, maar dan met een bestandsnaam die ik wil laten afhangen van ingevulde velden in het bestand.
2) Nu krijg ik het voor elkaar om de bestandsnaam eraan te hangen, maar komt het niet op de dezelfde locatie terecht als het originele Excel bestand, het bestand komt in "my documents" terecht (waarschijnlijk omdat de verwijzing niet werkt)

De codes:

[COLOR="#0000CD"]Sub Testpdf3()
'
' Testpdf3 Macro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\S01-Algemeen\2015\Productie\Processing\Ploegoverdracht\GOR-2\Wachtverslag GOR 2 - Blanco.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub[/COLOR]

Deze werkt goed, maar ik wil de naam wijzigen en heb hiervoor de volgende code geprobeerd:

[COLOR="#0000CD"]Range("H3").Value " - " & _
  Format(Date, "dd-mm-yy") + " - " + Range("A5").Value + " " + Range("C5").Value + " " + Range("C6").Value[/COLOR]

Hoe krijg ik deze twee gecombineerd zodat het bestand "Wachtverslag GOR2 - Blanco" wordt opgeslagen als pdf bestand, waarvan de bestandsnaam is samengesteld uit A5, C5 & C6?

Zou iemand mij hiermee willen en kunnen helpen?

Alvast bedankt voor de moeite.

Groeten

René

 

[Leotaxi]

de + tekens vervangen door & teken kan al een begin zijn


mvg
Leo

 

[Renewerk]

Hoi Leo,

Ik begrijp niet helemaal goed wat je hiermee wilt bereiken, de twee codes moeten gecombineerd worden, hoe ziet de samengestelde code er dan uit volgens jou?

groeten

René

 

[Leotaxi]

weet ook niet of het het enige is maar wel zeker dat samenvoegen met het & teken gebeurd niet met +
dus vervang die om te beginnen

mvg
Leo

 

[Renewerk]

Ik heb geprobeerd de + te vervangen voor &, maar blijf rode tekst krijgen en foutmeldingen.

Ik probeer wat te combineren, maar kom er niet echt uit...

Groeten

René

 

[Leotaxi]

Dag René,

beter even een voorbeeld plaatsen met de inhoud in die cellen
en de volledig gewenste naam van bestand.
Dan is er meer kans op juiste oplossing

mvg
Leo

 

[Renewerk]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\S01-Algemeen\2015\Productie\Processing\Ploegoverdracht\GOR-2\Filename:=Range("H3").Value & " - " & _
  Format(Date, "dd-mm-yy") & " - " & Range("A5").Value & " " & Range("C5").Value & " " & Range("C6").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False[/COLOR]

Dit werkt niet zoals ik zou willen, tekst blijft rood met foutmeldingen...

 

[Renewerk]

Hoi Leo,

dit is de gewenste bestandsnaam:
Wachtverslag Poederfabriek - 22-04-15 - Ploeg B Ochtenddienst

Wachtverslag Poederfabriek = "H3"
Ploeg B = "C5"
Ochtendienst = "C6"

De datum wordt gegenereerd in de code, omdat deze als formule in het Excel bestand staat.

Heb je hier iets aan?

groeten

René

 

[edmoor]

Je mist hier het rode teken:

Range("H3").Value [COLOR="#FF0000"]&[/COLOR] " - " & _
  Format(Date, "dd-mm-yy") & " - " & Range("A5").Value & " " & Range("C5").Value & " " & Range("C6").Value

 

[Renewerk]

Super, dat was het inderdaad !

Nu werkt de macro zoals ik wil, bedankt

Groeten

René