Meerdere mappen openen

[nothere]

Ik heb 10 mappen met gegevens
Nu heb ik in de eerste map een knop geplaatst die de andere 9 mappen opent.
Tijdens het openen zie je al deze mappen op het scherm voorbij gaan met map 1 op de achtergrond.
Mijn vraag is n.l Is het mogelijk om deze 9 mappen te openen op de achergrond van map1

hoop dat iemand een antwoord heeft.

groeten nothere.

 

[koosl]

hello nothere,

Sub Huppeldepup()
Dim Wb As Variant
     Application.ScreenUpdating = False
     WB = ActiveSheet.Name
    ' open hier alle andere files
 
   Worksheets(WB).Select
End Sub

code onthoudt de naam van het Werkboek waar de macroknop in zit.
het scherm wordt niet ververst
na het openen van alle andere files wordt het Werkboek met de macroknop weer aktief gemaakt.

Werkt dit zo voor je?


Koosl

 

[nothere]

Perfect.

Dat is snel !!!!!!!!!!!!!!!!
Ik heb mijn vraag 15 min. geleden geplaatst,
en nu al antwoord.

Koosl ...Het werkt.
Heel heel erg bedankt.

Nothere.

 

[Wigi]

Ik zou dit doen:

Sub Huppeldepup()
Dim Ws As [B]Worksheet[/B]
     Application.ScreenUpdating = False
     Ws = [B]ActiveSheet[/B]
    ' open hier alle andere files
   [B]Ws.Select[/B]
   [B]Application.ScreenUpdating = True[/B]
End Sub

[niet geteste code]

Wigi

 

[nothere]

proberen

bedankt Wigi
Ik ga deze macro ook proberen