Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Sheet opslaan als PDF naam staat in Cel Q9  (gelezen 9124 keer)

0 leden en 1 gast bekijken dit topic.

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Sheet opslaan als PDF naam staat in Cel Q9
« Gepost op: 09 december 2017, 17:17:35 »
Goeden avond expert
Ik heb een bestand gemaakt waarmee ik diverse werkzaamheden verzamel en registreer
In dit bestand heb ik een Sheet "Mail" deze wil ik graag opslaan als PDF met de naam uit Cel Q9.
Daarvoor heb de volgende Macro gevonden en aangepast.
De macro werkt naar behoren allen wordt de gehele Sheet op geslagen,
van wegen de leesbaarheid van de PDF zou ik graag een geselecteerd gedeelte als PDF opgeslagen zien.
Wie kan mij verder helpen??
Macro tot zo ver:

  ' Macro9ba Macro
' Opslaan als PDF

   Dim PDFName As String

   PDFName = ActiveSheet.Range("R9").Value
' De macro haalt met dit command het factuurnummer op in de factuur, om deze later als naam voor het PDF-bestand te gebruiken.
       
   If Dir("C:\Users\jaap\OneDrive\Documenten\RepairCafé\Data\PDF\" & PDFName & ".pdf") <> "" Then
   MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
' Een controle om geen dubbel PDF-bestand te maken.
' De map waarin je de PDF-bestanden in wilt creëeren (bij mij FactuurMail) moet op voorhand aangemaakt zijn!!
       Exit Sub
'Verlaat de routine als het PDF-bestand reeds bestaat.
     Else
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jaap\OneDrive\Documenten\RepairCafé\Data\PDF\" & PDFName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End If
' Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #1 Gepost op: 09 december 2017, 17:34:45 »
Hallo Animal,

welkom op Oplossing.be  :)

Zelf heb ik ook reeds jaren een Excel-werkmap waarin ik mijn facturen maak en bijhoud, en ik sla mijn uitgaande facturen ook op ans PDF, om het dan als bijlage met een mail te versturen naar mijn klant.

Mijn code is vrij eenvoudig en werkt prima:

Sub Mail()
    Dim FacName As String, Jaar As String
   
    FacName = ActiveSheet.Range("K12")
    Jaar = ("2017-")
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "F:\FactuurMail\Oplossing 2017\" & Jaar & FacName & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Een command inbouwen om de routine te verlaten is niet nodig, denk ik, omdat Windows automatisch gaat verwittigen dat het aan te maken bestand reeds bestaat, als je per ongeluk een fout maakt.

Kan je hier iets mee?

Als je enkel een geselecteerd gedeelte van je factuur wilt opslaan als PDF, dan gaat er automatisch een gedeelte verloren.
Ik veronderstel dat als je dit niet mee wil opslaan en verzenden naar de klant, je het dan ook ineens uit je factuur kan halen?

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #2 Gepost op: 09 december 2017, 18:05:58 »
 Hallo :) SoftAid :)

Bedankt voor je snelle reactie
Jou macro is veel kleine dan ik heb gevonden en samen gesteld en werkt net zo goed.
alleen doet deze precies het zelfde als mijn Macro.

de vraag was: een PDF met alleen het geselecteerde deel van de Sheet "Mail"
                        en Niet  de gehele Sheet.

Wil je nog een aanvullende poging doen??

 ;D Animal :)

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #3 Gepost op: 09 december 2017, 18:07:24 »
Hallo,

Ik veronderstel dat als je dit niet mee wil opslaan en verzenden naar de klant, je het dan ook ineens uit je factuur kan halen?

Ik ben geneigd me daar bij aan te sluiten, maar mocht je toch gaan voor de oplossing waarbij slechts een deel van je werkblad wordt geëxporteerd, dan is dat allesbehalve onoverkomelijk  ;)

Met "ActiveSheet.Export... " vraag je letterlijk "exporteer het actieve werkblad"
Maak er dus "ActiveSheet.Range("A1:B20").Export... " van en 't is gefikst.
(A1:B20) is natuurlijk wij wijze van voorbeeld; die range zal je zelf moeten bepalen.

Succes,
pitufo

"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #4 Gepost op: 09 december 2017, 18:14:15 »
Hallo Animal,

Zoals pitufo terecht opmerkt moet je enkel de .Range(). toevoegen als je een beperkt gebied van je werkblad wilt opslaan.

Ik reageer toch nog even om je te waarschuwen voor het gebruik van OneDrive.
Wil je ECHT dat (bijna) iedereen inzage heeft in jou persoonlijke correspondentie?

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #5 Gepost op: 09 december 2017, 18:26:31 »
Hallo SoftAid
Bedankt voor je waarschuwing, dit was duidelijk NIET de bedoeling.
De bedoeling was: Ook onderweg met mijn Laptop ook deze gegevens te verwerken en de PDF
als Mail te versturen.
Mijn ervaring is dat op een andere machine het Path niet meer klopt
en de macro niet meer werkt.
Is dit ook nog oplosbaar?? ;D

 pitufo
 Bedankt voor je aanvulling, de macro doet nu wat ik er van verwacht.  \o/

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #6 Gepost op: 09 december 2017, 18:45:13 »
De bedoeling was: Ook onderweg met mijn Laptop ook deze gegevens te verwerken en de PDF
als Mail te versturen.
Mijn ervaring is dat op een andere machine het Path niet meer klopt
en de macro niet meer werkt.
Is dit ook nog oplosbaar?? ;D
Als je werkelijk zo snel je factuur wilt verzenden (en niet kan wachten tot je terug thuis achter je desktop zit), dan blijven er niet veel opties over...
Je kan natuurlijk ook op je laptop en desktop een zelfde map  C:\Users\jaap\Documenten\RepairCafé\Data aanmaken, maar dan moet je bij thuiskomst de op de laptop gemaakte factuur overzetten naar je desktop (-map).
Voor mij primeert toch mijn privacy. OneDrive, net als Twitter, FaceBook, enzovoort zijn gemakkelijker te hacken dan jou eigen PC thuis, en de eigenaars van die sites kijken rustig mee.
Dat is overlaatst nog gebleken toen tientallen, honderden mensen hun account zagen afgesloten worden omdat FaceBook vond dat de inhoud van die accounts botste met de regelgeving van FaceBook. ??? HOE kan FaceBook dat weten als ze niet je private gegevens lezen???

Mogelijk ben ik wat paranoia op dat gebied, maar voor mij is het duidelijk, ik blijf ver weg van servers waar ik GRATIS al mijn brieven, facturen, foto's enzovoorts MAG opslaan. Ik weet dat ze het op een dag tegen mij kunnen gebruiken, al is het maar om mij gerichte reclame te sturen.

Ik hoop dat je goed geholpen bent. Vraag gerust door, we helpen je graag verder  :)

:) SoftAid :)             
 
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #7 Gepost op: 09 december 2017, 19:03:50 »
Hallo, SoftAid

Dit was een zeer waarde volle opmerking en verwijder OneDrive
Ik ben het helemaal met jou stelling eens, dit was ondoordacht en dom  :o
Ben veel onderweg en krijg de gegevens in klad bij mail aangeleverd
die ik dan verwerk en de belanghebbende per mail de PDF samenvatting toe stuur.
Ik kan de werkmap op de nas zetten maar weet nog niet hoe dit in het Path gezet moet worden
zo dat ik er thuis op de pc en onderweg op de laptop mee aan het werk kan.   :help:

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #8 Gepost op: 09 december 2017, 19:10:11 »
Ik kan de werkmap op de nas zetten maar weet nog niet hoe dit in het Path gezet moet worden
zo dat ik er thuis op de pc en onderweg op de laptop mee aan het werk kan.
Daar zou ik ook niet zo snel op kunnen antwoorden, maar je kan het opslaan op de laptop, en als mail-bijlage verzenden naar je eigen desktop (brievenbus)
Je kan het bestand ook op WeTransfer zetten.
Maar je zal het toch pas kunnen openen als je terug thuis bent, dus kan je het ook gewoon thuis overzetten via je intanet (NAS).

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #9 Gepost op: 09 december 2017, 19:25:57 »
hallo  SoftAid
 Bedankt voor je reacties, ik ga nog wat experimenteren om het op mijn nas te zetten en
dmv down- en uploaden zien of ik het voor elkaar krijg.
Als ik daar verder mee ben meld ik me weer.

tot horens ( ziens )   \o/

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #10 Gepost op: 09 december 2017, 21:23:29 »
Je NAS bereik je toch gewoon via een drive letter die je er aan hebt verbonden? Dus ipv C:\ een andere letter?
______________________________

Groet, Leo

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #11 Gepost op: 09 december 2017, 22:14:21 »
   :) Bedankt voor het mee denken.
Dit gaat volgen mij goed zolang ik thuis ben.
Dan is er directe link naar de NAS.
Onderweg kan ik mijn NAS wel benaderen maar dan moet
ik het bestand ophalen  (Downloaden) en dan klopt het Path niet meer.   ???   ???

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #12 Gepost op: 09 december 2017, 22:39:12 »
Hallo Animal,

Waarom zou je onderweg een excel-bestand van  de NAS downloaden?
Je hebt je Excel op je laptop, dus kan je daarmee de factuur maken, en ze omzetten naar een PDF (via de macro)

Die PDF-factuur kan je dan naar je klant mailen.
Terug thuis kan je het PDF toch gewoon overzetten van de laptop naar de desktop.

Ik snap je probleem gewoon niet.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Animal

  • Nieuw lid
  • Berichten: 9
  • Geslacht: Man
  • Oplossing.be
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #13 Gepost op: 10 december 2017, 14:56:04 »
 Hallo SoftAid

Het Excel bestand wat op de Nas staat is het bestand waar in ik de gegevens verwerk
en de PDF maak.
Als de gegevens zijn in gevuld, wordt het bestand weggeschreven onder een nieuwe naam
en wordt er een PDF gemaakt,  voor die gene die niet over Excel beschikken
 of er niet mee overweg kunnen.
Dit proces herhaald zich elke maand
Tevens wil ik de verzamelde data op een centrale plaats hebben staan het liefst op de NAS.
De overweging hier voor is dat de laptop en Desktop vrij zijn van data en alle data op een centrale plaats
in mijn geval de NAS staat.

 :) Animal  :D

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Sheet opslaan als PDF naam staat in Cel Q9
« Reactie #14 Gepost op: 10 december 2017, 15:40:51 »
Hallo Animal,

Nu begrijp ik volledig wat je bedoeling is.
Soms krijgen helpers zo weinig basisinformatie dat er veel tijd verloren gaat alvorens we gericht kunnen helpen.

Voor ik er verder op in ga zou ik je alvast dit willen meegeven, gewoon als goede raad. Je doet er mee wat je wilt.
Zelf zou ik nooit Excel-facturen naar een klant sturen. De klant kan een andere Office-versie hebben die niet compatibel is met die van jou.
mogelijk gebruiken ze een Open-source versie die xls-bestanden opent, maar niet correct. Ook de uitlijning en dergelijke kan de klant in de problemen brengen als hij wilt afdrukken. Hij kan ook jou bestand aanpassen, een datum veranderen, een bedrag enzovoorts, waardoor je later, bij discussie zal moeten aantonen dat jou versie correct is. Bij een PDF-bestand is dit niet zo gemakkelijk, en je kan een PDF gemakkelijker vergrendelen, READ-ONLY maken. Bovendien opent elke PDF-Reader jou PDF-bestand.
Als toemaat kan je in je factuur een verwijzing met link zetten naar een gratis PDF-reader, waarmee de klant een compatibel PDF programma kan downloaden, moest hij dit niet hebben.

Wat je probleem betreft: Laat ons stellen dat je excel-factuur-bestand op de NAS staat (laten we aannemen dat de NAS X:\ is), in de map X:\Facturen\2017\factuur.xls
Als je vanaf de laptop het bestand opent, of je opent het bestand vanaf de desktop, mag normaal toch geen verschil maken. Je gaat met beide PC's toch naar hetzelfde bestand, toch?
Als je de macro uitvoert, en het bestand omzet naar naar PDF, sla je dit bestand ook op in de NAS, bijvoorbeeld in de map X:\FactuurMail\2017\factuur.PDF
Je kan hier normaal geen problemen mee krijgen.

Zie je toch een andere letter voor de betreffende partitie op je NAS als je via de laptop of de desktop het bestand benaderd, dan kan je in de macro een code toevoegen om, in geval van een foutmelding, door te gaan naar een tweede opdracht met een correct partitie-label.
Sub Mail()
    Dim FacName As String, Jaar As String
        FacName = ActiveSheet.Range("Q9")
    Jaar = ("2017-")
        ActiveSheet.Range("A1:B20").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "F:\FactuurMail\Oplossing 2017\" & Jaar & FacName & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=True
    On Error Resume Next
   ActiveSheet.Range("A1:B20").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "X:\FactuurMail\Oplossing 2017\" & Jaar & FacName & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=True
    On Error Resume Next
End Sub
Indien de macro geen map F:\FactuurMail\ vindt, zal hij de verder gaan naar de volgende opdracht, en X:\FactuurMail\ kiezen.

Helpt dit?

:) SoftAid :)             





Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com