Bestand openen vanuit dezelfde map

[Robert Smidt]

Beste Helpmij'ers,

Ik wil vanuit een code in vba het bestand "DebiteurenOverzicht.xlsm" openen. Wanneer ik het volledige pad opvoer doet deze het prima. Ik wil echter dat deze het bestand opent vanuit dezelfde map (dus zonder de het hele pad te vermelden) echter geeft deze een foutmelding. Wie kan mij hierbij helpen?

Alvast heel erg bedankt.

Groeten,
Robert

    If WB2 Is Nothing Then
       "Set WB2 = Workbooks.Open(Filename:=Environ("userprofile") & "\Dropbox\Cashflow Control\Boekhouding klanten\7. Car Service Hagens\DebiteurenOverzicht.xlsm")
       Set WB2 = ActiveWorkbook.Path "DebiteurenOverzicht.xlsm"
    End If

 

[edmoor]

Je mist een \ teken:
Set WB2 = ActiveWorkbook.Path "\DebiteurenOverzicht.xlsm"

Daarnaast, als je zegt een foutmelding te krijgen, vertel deze er dan ook bij.
Het is een indicatie van de mogelijke oorzaak.

 

[Robert Smidt]

Ik krijg nu een foutmelding: Compileerfout: Verwacht: instructie-einde

 

[edmoor]

Heb even m'n bril opgezet
Set WB2 = ActiveWorkbook.Path & "\DebiteurenOverzicht.xlsm"

 

[Robert Smidt]

Nu geeft hij niet direct een foutmelding, maar wanneer ik het activeer zegt deze: Compileerfout: Typen komen niet met elkaar overeen

 

[edmoor]

Dat zal ergens anders in de Sub zitten.

 

[OctaFish]

Wat geeft deze string in een msgbox:

Msgbox ActiveWorkbook.Path & "\DebiteurenOverzicht.xlsm"

 

[Robert Smidt]

C:\Users\Gebruiker\Dropbox\Cashflow Control\Boekhouding klanten\7. Car Service Hagens\DebiteurenOverzicht.xlsm

 

[edmoor]

Hoe is WB2 gedeclareerd? Plaats anders je document eens.

 

[Robert Smidt]

Bekijk bijlage DebiteurenOverzicht.xlsmBekijk bijlage Kopie Verkoopfactuur.xlsm