Automatisch openen van de offerte die ik opsla

[JoannaAlu]

Hallo allemaal,

Ik ben heb een offerte gemaakt en daarachter heb ik functies gezegd dat hij automatisch nummert, de datum er automatisch komt en automatisch terug een nieuw orgineel opent.
Thanks aan alle mensen die dit ooit op dit forum hebben geplaatst!

Nu zou ik graag willen dat hij mijn nieuwe offerte opent.
Op dit moment gaat hij mijn offerte opslaan met het volgnummer, maar hij opent het niet. Dit is zeer vervelend als je je nieuwe offerte dan wilt afdrukken.

Ook zou ik willen weten of het mogelijk is dat hij mijn bestand (gelijk het nu is) opslaat als .xlsm maar ook als .pdf (deze hoeft hij dan niet automatisch te openen).



Dit is wat ik tot nu toe heb.

Alvast bedankt voor de hulp die komen gaat!
Joanna

 

[HSV]

Hallo Joanna,

Aan plaatjes hebben de helpers niet veel en wordt het alsmaar gokken.
Plaats een Excel bestand met fictieve gegevens.

 

[JoannaAlu]

Bekijk bijlage Offerte Forum.xlsm

Oke, hier heb je het dan!

 

[HSV]

Probeer dit maar eens.


De pdf en .xlsm worden in dezelfde map geplaatst.

Const Mijnpad = "C:\Users\joann\Documents\Alunata\"

Sub NieuweVanalles)
Dim tel
  tel = CreateObject("scripting.filesystemobject") _
        .getfolder(Mijnpad).Files.Count / 2 + 1
 With Sheets("Blad1")
    .range("a1:w58").ExportAsFixedFormat 0, Mijnpad & .Range("N9")
  ThisWorkbook.SaveCopyAs Mijnpad & .Range("N9") & ".xlsm"
    .Range("N9") = "O" & Year(Date) & "-" & Format(tel + 1, "0000")
    .Range("s7") = Date
 End With

 

[emields]

of deze

 

[JoannaAlu]

Beste Harry,

Moet ik dan alleen jou code nog gebruiken of toevoegen aan de mijne?

En Emields,
Ik heb jou code geprobeerd maar krijg dan altijd Code13 foutmelding waarmee ik niet goed weet wat ik dan moet doen? Heb jij enig idee?

Groetjes

 

[HSV]

Je moet niets toevoegen aan de code.
Enkel de map Alunata moet leeg zijn of evenveel .xlsm als .pdf's bevatten.