• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Fout met opslaan blad via 2 verschillende waarde uit twee cellen.

Status
Niet open voor verdere reacties.
C

Corrnelis

Gebruiker
Lid geworden
23 jun 2022
Berichten
59
Beste Forum leden,

Ik wil een sheet opslaan als pdf met de waarde uit twee cellen.
In de ene cel staat de hoofd locatie in cel (AA7)
Met daarin de waarde......
F:\MegaSync\Prive\OneDrive\Mijn Locatie\Partijen - Documenten\PdfBestanden/

En in de andere de naam van de sheet in de cel (AA1)
Met daarin de waarde
2023-jul-30-Fakenaam-001

Maar zodra ik deze wil opslaan geeft hij de fout in de blauwe regel. Wie o wie weet wat ik fout doe?



Sub OpslaanPDF()
PDF = Range("AA7").Value & "" & Range("AA1").Value & ".pdf"
If Dir(PDF) <> "" Then
If MsgBox("Het bestand " & PDF & " bestaat reeds. Vervangen?", vbExclamation + vbYesNo) = vbNo Then Exit Sub
End If
ActiveSheet.ExportAsFixedFormat 0, PDF
End Sub

Ik ben best wel lang aan het proberen maar kom er gewoonweg niet uit.
Snap ook niet wat er fout aan is.
Kan iemand mij helpen?

Gr Cor
 
Je hebt de code niet in codetags geplaatst en je verteld er ook niet bij welke foutmelding je dan krijgt.
En waarom eindig je het pad met een / in plaats van een \?
 
Staat Sub OpslaanPDF in een module of achter het werkblad dat je wilt exporteren?
In dat laatste geval: verplaats Sub OpslaanPDF naar een module.
 
Beste Edmoor en Ahulpje,

De backslash had ik verkeerd gezet.
Maar helaas ook dan werkt het dus niet.
Vraag me echt af wat er nu fout gaat.

Ik wil gewoon het bestand opslaan als pdf, maar ook eigenlijk opslaan als excel bestand op een andere locatie.
Maar ik bedacht me eerst maar het ene en dan het volgende.
Nu even een korte versie erbij gedaan van mijn vraag met de module erin.
Hopelijk kunnen jullie mij uit de brand helpen.

Met vriendelijke groet Cor
 

Bijlagen

  • Testmap-OpslaanPdf.xlsm
    23,3 KB · Weergaven: 15
Werkt zonder enig probleem hier.
Daarom vroeg ik je te vertellen welke foutmelding je krijgt.
 
Dubbele backslash in de filenaam.
Zet maar eens MsgBox PDF op de juiste plaats, dan zie je dat zelf.
 
Dat zal geen foutmelding opleveren omdat dat toegestaan is.
 
Lees post 5 van edmoor nog eens.
Daarom vroeg ik je te vertellen welke foutmelding je krijgt.
Klik om te vergroten...
Mogelijk staat er een tikfout in de opslaglocatie.
 
Hoi Edmoor en overige helpers,

Ik denk dat ik de "fout" heb ontdekt.
Ik gebruikte (tekst samenvoegen) om de bestandsnaam en de locatie te maken.

Als ik dat niet doe en alleen het path van de bestandslocatie gewoon hard erin zet.
Dan geeft hij geen fout dus dan gaat alles gewoon helemaal top.

Anders geeft hij de fout van [ActiveSheet.ExportAsFixedFormat 0, PDF]

Dus ik zal de vraag op opgelost zetten en wil jullie vast hartelijk bedanken voor jullie expertise.
Mag ik zo vrij zijn om jullie te vragen hoe je hiermee ook het .xlsm bestand tegelijk kan opslaan.
(wel op een andere locatie)

Of moet ik dat even in een andere vraag gaan stellen.
Nogmaals top dat jullie dit doen.
Gr Cor
 
Nogmaals:
ActiveSheet.ExportAsFixedFormat 0, PDF IS geen foutmelding.
 
Beste edmoor,

Zou jij mij kunnen uitleggen hoe het komt dat hij dan daar stopte.
Zodat ik (hopelijk) ook wat meer inzicht in het waarom ga krijgen.
Nu denk ik dat het komt doordat ik de bestands locatie gevormd heb door diverse cellen samen te voegen.
Zover ik je antwoord begrijp heeft het blijkbaar daar niks mee te maken.

Enfin, als je tijd en zin hebt, dan hoor ik het graag van je.
Gr Cor
 
Als hij daar stopt is die regel geel en heb je er ook een foutmeling bij gekregen.
 
Dan kan hij dus het bestand niet opslaan op de aangegeven locatie.
Doe dit eens en laat dan hier zien wat er in de messagebox staat:
Code: 
Sub OpslaanPDF()
    PDF = Range("AA7").Value & "\" & Range("AA1").Value & ".pdf"
    MsgBox PDF
[COLOR="#008000"]    'If Dir(PDF) <> "" Then
    '    If MsgBox("Het bestand " & PDF & " bestaat reeds. Vervangen?", vbExclamation + vbYesNo) = vbNo Then Exit Sub
    'End If
    'ActiveSheet.ExportAsFixedFormat 0, PDF[/COLOR]
End Sub
 
Laatst bewerkt:
Hoe luidt de tekst van de foutmelding?
Treedt de fout op als het exportbestand al bestaat?
Treedt de fout ook op als het exportbestand nog niet bestaat?
 
Beste mensen,

Op een of andere manier krijg ik de fout niet meer te zien als ik alles terug zet.
Dus ik kan ook niet achterhalen wat er fout was.
Wat dat betreft helemaal blij natuurlijk.
Jammer wel dat ik de fout niet kan reconstrueren om zo weer een klein stukje te leren.
Nogmaals, super bedankt voor jullie input tot zover.

Overigens, moet ik mijn andere vraag als aparte vraag gaan plaatsen?.
Of kunnen jullie daar een antwoord op geven.
namelijk hetzelfde bestand gelijktijdig opslaan als xlsm maar dan naar een andere locatie
Enfin ik hoor het graag van jullie.

Gr Cor
 
Dat kan met ActiveWorkbook.SaveCopyAs
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan