template openen Macro na opslaan

[Material]

Goedemorgen allen,


Ik heb een macro die voor mij een template invult met bepaalde waardes. deze wordt automatisch opgeslagen op een bepaalde locatie.

Nu wil ik er ook graag bij hebben dat dit bestand gelijk opstart in een nieuwe workbook.

alleen heb ik niet tot geen ervaring in Macro's.

kan iemand mij hierbij helpen?

het gaat om het onderstaande stukje macro, waarbij het moet gebeuren.



'######################## OPSLAAN BESTAND ###############################

Dim slaopbestand, slaoppath As String
Dim opslaan As Integer

slaoppath = "J:\sample\Test\Opdrachten\test"
slaopbestand = Format(dtLeverdatum, "YYYY-MM-DD") & " " & sLaadref & ".xlsx"

'Controleren of het bestand reeds al bestaat.
If Dir(slaoppath & slaopbestand) = vbNullString Then
MyMkDir slaoppath
Wkb_template.SaveAs slaoppath & slaopbestand, FileFormat:=51
Else
opslaan = MsgBox("Bestand bestaat al" & vbNewLine & "Wilt u bestand overschrijven ?", vbYesNo, "Bestand bestaat al")
If opslaan = 6 Then
Wkb_template.SaveAs slaoppath & slaopbestand, FileFormat:=51
Else
GoTo exit_here
End If

End If

 

[edmoor]

Er staat zoveel in dat stukje dat uit de rest van de code komt dat er geen touw aan vast te knopen is, zeker ook nog omdat je geen codetags en inspringpunten gebruikt.

Plaats gewoon je document.

Maar probeer dit:

If opslaan = 6 Then
    Wkb_template.SaveAs slaoppath & slaopbestand, FileFormat:=51
    Workbooks.Open (slaoppath & slaopbestand)

 

[Material]

is dit bestand voldoende?


ik moet helaas het 1 en andere verwijderen, omdat er belangrijke info instaat.

Bekijk bijlage dummy.xlsm

 

[edmoor]

Dat is op zich voldoende, je verteld er alleen niet bij wat er moet worden gedaan om de code te activeren.
Heb je daarnaast mijn aanvulling in #2 gezien?

 

[HSV]

Je naam staat nog in het bestand.
Misschien kan het blijven staan, anders moet je het bestand verwijderen en aanpassen.

 

[Material]

er zit al een Macro in die een transportopdracht aanmaakt als ik op een knop klik.

nu ben ik bezig met een andere knop een cmr te maken en gelijk in te vullen.


ik heb de template gemaakt en als ik op de knop druk dan slaat hij het op en alles wordt goed ingevuld.

maar nu wil ik ook nog hebben dat als ik op deze knop druk dat het bestand ook gelijk geopend wordt.

waardoor ik het gelijk uit kan printen.




ik heb inderdaad geprobeerd wat je net aangaf, maar ik krijg een foutmelding.

 

[edmoor]

Er zit geen knop in je voorbeeld document.

 

[VenA]

Maak er een voorbeeldbestand van. Je verwijst in jouw code naar allerlei niet bestaande objecten. Verder kan je beter wat systematischer werken door eerst wat verschillende procedures te maken.

 

[HSV]

Bij de saveas methode is het bestand altijd al geopend.