Bestand openen via Excel en direct actief.

[danny147]

Beste,

Mijn bestandje van vorige week werkt perfect, alleen opent het een nieuw bestand en plaatst hij het geminimaliseerd onderaan, terwijl ik het direct actief wil hebben.

M.a.w. actief werkblad minimaliseren en het opgehaalde bestand actief maken.

Zie bijgevoegd bestandje.

Groetjes Danny. :thumb:

 

[danny147]

Beste,

Iemand een idee, hoe dit op te lossen is (of niet) ?

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Probleem is dat het opgehaalde bestand bij mij fullscreen opent, dus kan je vraag niet reconstrueren
Hebt ge deze al eens geprobeerd

Application.Windows([H12] & ".xls").Activate

 

[danny147]

Beste Warme bakkertje

Bij mij geeft hij een foutmelding met de volgende regel :

Application.Windows([A1] & [H12] & ".xls").Activate

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Sub ophalen()
    Workbooks.Open [A1] & [H12] & ".xls"
    Application.Windows([H12] & ".xls").Activate
End Sub

 

[danny147]

Beste Warme bakkertje

Hij staat er als geminimaliseerd en krijg nog steeds een foutmelding op die regel.
Heeft het te maken met Excel 2007 ?

Groetjes Danny. :thumb:

 

[snb]

Private Sub Workbook_Open()
    Windows(1).WindowState = xlMaximized
End Sub

 

[danny147]

Beste snb

Op deze wijze lukt het.

Alleen het nadeel is, het bestand wordt opgeslagen zonder de code erin.
Dan moet ik alle bestanden openen in mijn map werk en overal daar de code gaan in plaatsen.

Een beetje omslachtig vind je niet ?
Of had jij het op een andere manier gedaan ?

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Zo misschien?

Sub ophalen()
    Workbooks.Open [A1] & [H12] & ".xls"
    Windows(1).WindowState = xlMinimized
    Windows(2).WindowState = xlMaximized
End Sub

 

[snb]

Advies: werk nooit met WindowState =xlminimized
Excel 'onthoudt' dit op een onnaspeurlijke manier.

Je kunt het volgende proberen:
sluit alle werkboeken in Excel.
Draai in het persnlk.xls werkboek de volgende code

sub tst()
  Application.WindowState = xlMaximized
End Sub

Sluit daarna Excel en bekijk wat er na herstart gebeurt (ik ga er daarbij vanuit dat je nergens meer enige code hebt staan die 'xlminimized' bevat.)

Als dat geen soulaas bieidt kun je in Persnlk.xls/ Thisworkbook de volgende code zetten:

Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
End Sub

 

[danny147]

Beste Warme bakkertje en snb

@ Warme bakkertje

De code van U werkt perfect alleen mogen er niet meer dan 1 Excel werkblad open staan.
Want de 2de die je oproept, opent hij gemaximaliseerd.
Toch bedankt voor het geleverde werk.

@ snb

Heb de 2de optie genomen en de code in Persnlk.xls/ Thisworkbook geplakt en dit werkt perfect waarvoor mijn dank.

Groetjes Danny. :thumb: