Openen met behulp van (Environ("userprofile")

[Corrnelis]

Beste Mensen,

Na lang zoeken en proberen nu toch maar jullie hulp vragen.
Ik wil namelijk het bestand waar ik bezig in was afsluiten zonder dit op te slaan en dan een (persoonlijk) sjabloon laten openen met VBA.
Heeft iemand enig idee op welke wijze ik onderstaand werkend krijg.
En wellicht wat uitleg hoe ik voortaan zowel environ als het userprofile zou moeten zien en gebruiken in deze hoedanigheid.
Ik zou er erg mee geholpen zijn.

PS... onderstaande code staat als knop in een userform.

Gr Cor

    Private Sub cmdhoofdgerechten_Click()
    
    Unload Me
    Application.DisplayAlerts = False
    'Sluit het huidige actieve workbook
    ActiveWorkbook.Saved = True
    Application.DisplayAlerts = True
    'Open het andere bestand
    
    Workbooks.Open Dir(Environ("userprofile") & "\OneDrive\Documenten\Aangepaste Office-sjablonen\OfferteProg\*.xltm")
    
    'Ga naar het tabblad van
        Sheets("Hoofdgerechten").Visible = True
        Sheets("Hoofdgerechten").Select
        
    'Gaat op de cel staan die hieronder staat
    ActiveSheet.Range("d10").Select
    End Sub

 

[edmoor]

De DIR opdracht geeft alleen de naam van het bestand terug en Workbooks.Open wil het hele pad hebben.
Doe het eens zo:

Workbooks.Open Environ("userprofile") & "\OneDrive\Documenten\Aangepaste Office-sjablonen\OfferteProg\Naam.xltm"

 

[snb]

Begin eerst eens met de grondbeginselen van VBA, zonder lukraak te gaan knippen en plakken in code die je links en rechts van Internet plukt.

 

[Corrnelis]

Jullie Hulp hermee

Beste Edmoor,

Top... Werkt en ik kom er ook gelijk achter waarom het niet ging.
Dus weer wat geleerd.
Alleen is het wel zo dat hij netjes het andere bestand opent, maar dan weer terug gaat waar die vandaan is gekomen.
Kortom het eerste bestand wordt niet afgesloten.
Dus dat is wat vreemd. Want ik dacht dat de rest gewoon goed staat qua afsluiten van het bestand.?

Mocht je tijd hebben, zou je daar eens over willen nadenken wat dat zou kunnen zijn.
en als je mij een tip kan geven over het voorkomen dat ik soms de melding krijg van "onvoldoende geheugen".
Dan zou dat ook welkom zijn. Zelf denk ik dat er het e.e.a aan macro's op de achtergrond blijven draaien namelijk.

Gr Cor

 

[edmoor]

Het eerste bestand kan niet worden gesloten omdat daar je VBA code draait.

 

[Corrnelis]

Aha, klinkt logisch.
Weet jij toevallig en/of is er überhaupt een oplossing om dit te omzeilen?

 

[edmoor]

Nee.
Zodra je dat document sluit stopt ook het uitvoeren van de VBA code.
Je kan overigens aan dat document refereren met ThisWorkbook.

 

[Corrnelis]

Edmoor en alle anderen,

Duidelijk...

Super bedankt voor jullie input.
Weer wat geleerd en ik kan weer verder.
Ik zal de vraag op opgelost zetten.

Thanks iedereen gr Cor