excel openen vanuit word

[broek76]

Hallo,

ik probeer met een macro vanuit word excel te openen en dan word af te sluiten. Nu opent excel wel maar komt niet op de voorgrond en word sluit pas af als ik zelf in de balk op het excel bestand klik.
iemand hier een oplossing voor?

Sub OpenReceptKeuze()

    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True

    Set xlWB = xlApp.Workbooks.Open("G:\10.Banketproductie\indelingen per product\recepten\receptkeuze.xlsm")
    ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
    
End Sub

 

[snb]

Er is toch geen enkele reden/noodzaak Word af te sluiten ?

Sub M_snb()
   GetObject("G:\OF\adressen.xls").Windows(1).Visible = True
End Sub

 

[broek76]

Ik ben er ondertussen achter gekomen dat de code wel werkt maar dat het probleem in het excel bestand zit.
Deze opent met een userform en daardoor werkt het niet.
Heb je hier toevallig een oplossing voor?

 

[Warme bakkertje]

Wat als je de code om het Word-bestand te sluiten in het Userform_Activate event zet ?

 

[snb]

Als dat userform opent werkt het toch ?

 

[broek76]

Niet helemaal. Het opende op de achtergrond en zorgde dat Word niet afsloot.
Heb nu gewoon een knop gemaakt om het userform te openen en dan gaat alles goed.
Dank voor jullie hulp.

 

[Warme bakkertje]

Al eens geprobeerd van het UF vbModeless te openen ?

 

[broek76]

Nee, ik weet eigenlijk ook niet waar je het over hebt.
Ben pas sinds een paar weken met VBA bezig(wist wel dat het bestond). Gaat op zich wel goed maar moet nog veel leren.

Dus....wat bedoel je met je opmerking?

 

[Warme bakkertje]

Kijk bij de VBA-help eens bij de methode Show en welke argumenten daarbij horen.

 

[broek76]

Ok, ik ga er mee aan de gang.

 

[broek76]

Ik zie wel dat ik de help functie meer moet gaan gebruiken, dank je.