automatisch PDF wegschrijven vanuit Excel - benaming?

[Lisy]

Hoi,

ik zie dat dit onderwerp toch al een aantal keren is behandeld, maar mij lukt het nog steeds niet om het goed te krijgen

Dus, hierbij mijn specifiek probleem. Ik heb een macro'tje opgenomen om een PDF te maken van een Excel-bestand. Dat ziet er zo uit:

---
Sub pdf()
'
' pdf Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Lisy\Factuur.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub
---

Nu wil ik dat de benaming van deze PDF telkens aangepast wordt naargelang het factuurnummer, dat terug te vinden is in cel C14.
Hiervoor probeer ik de macro dus op deze manier aan te passen:

---
Sub pdf()
'
' pdf Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Lisy\Factuur " & Range("C14").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub
---

Maar dit geeft dus een foutmelding. Wat doe ik verkeerd??? :shocked:

Alvast heel hard bedankt voor de hulp!

Lisy

 

[OctaFish]

Begin eens met je macro’s tussen de CODE tags te zetten.

 

[HSV]

De code is verder goed, maar is er een map 'Lisy' in "D:" ?

Of de map Lisy niet in de documenten van D zit?

Bv.
"D:\Users\Lisy\documents\Lisy\Factuur " &

Of:
"D:\documents\Lisy\Factuur " &

 

[loek010]

Zo zal het werken :

Sub pdf()
If Len(Dir("D:\Lisy", vbDirectory)) = 0 Then
        MkDir "D:\Lisy"
    End If
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Lisy\Factuur " & Range("C14").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    MsgBox "Factuur " & Range("C14").Value & " opgeslagen in D:\Lisy", vbInformation
End Sub

 

[edmoor]

Maar dit geeft dus een foutmelding. Wat doe ik verkeerd??? :shocked:

Foutmeldingen zijn er niet om de gebruiker te pesten.
Als je dus zegt een foutmelding te krijgen, vertel er dan ook bij welke dat is.
Waarom zovelen dat niet doen is mij een raadsel.

 

[Lisy]

Foutmelding is de volgende:

Fout 1004 tijdens uitvoering: Het document is opgeslagen. Mogelijk is het document nog geopend of is een fout opgetreden bij het opslaan van het document.

Met de opgenomen macro loopt alles goed, dus de map is aanwezig, daar zit het probleem niet. De foutmelding is er alleen wanneer ik de macro aanpas... Als ik op foutopsporing klik, staat dit deel in het geel gemarkeerd:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "D:\Lisy\Factuur " & Range("C14").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True

Ook met het voorstel van loek010 krijg ik dezelfde foutmelding.

 

[edmoor]

En wat staat er precies in Range("C14")?

 

[Lisy]

Ha, chacka! Thanks!! Daar stond inderdaad "101/93". Nu aangepast naar "101-93" en het werkt (natuurlijk!) :thumb:

 

[edmoor]

Dat bedoel ik