Waarde halen uit ander Excel bestand

[mark1987vw]

In navolging op mijn vorige vraag over het halen van een waarde uit een andere sheet, heb ik nu iets wat mij niet lukt.

Wanneer ik het bestand Startbedrag.xlsm 'los' open dan doet die door middel van volgende code een waarde halen uit een ander bestand.

Private Sub Workbook_Open()

Set exDoc = Workbooks.Open("Y:\Administratie\Kassa\Restaurant\Kassastaten\" & "Kassastaat " & Range("C2") & "-" & Range("A14") & ".xlsm")
    waarde2 = exDoc.Sheets("Restaurant").Range("D15")
    exDoc.Close False
    Range("D6").Value = waarde2
    MsgBox "Het muntgeld van de kassasstaat is automatisch toegevoegd!" & vbNewLine & " is € " & waarde2
End Sub

Dit werkt prima. Maar...

Ik heb een 'opslaan' macro in het bestand 'Kassastaat' en nadat die het heeft opgeslagen opent die automatisch het bestand 'Startbedrag.xlsm' wat dan naar mijn mening automatisch de macro moet uitvoeren zoals hierboven beschreven.

Het probleem is dat die dan een foutmelding geeft. Dit heeft vast iets te maken met dat het bestand Kassastaat nog geopend is. daarom dacht ik dan laat ik die sluiten na het uitvoeren van de macro en dan opent het startbedrag hem weer om de waarde eruit te halen maar dit werkt niet.

Sub OpslaanAls()

'OPSLAAN EXCEL

Pad = "Y:\Administratie\Kassa\Restaurant\Kassastaten\"
Doc = Range("A1").Value & " " & Range("C1").Value & "-" & Range("D1").Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:=Pad & Doc

'OPSLAAN PDF

PADPDF = "Y:\Administratie\Kassa\Restaurant\Kassastaten\PDF\"
DOCPDF = ActiveSheet.Range("A1").Value & " " & ActiveSheet.Range("C1").Value & "-" & ActiveSheet.Range("D1").Value & ".PDF"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PADPDF & DOCPDF & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox prompt:="De kassastaat is opgeslagen! " & vbNewLine & "PDF: " & DOCPDF & vbNewLine & "EXCEL: " & Doc
  

'OPENEN NIEUW STARTBEDRAG

bnaam = "Y:\Administratie\Kassa\Restaurant\Startbedragen\Startbedrag.xlsm"
Workbooks.Open bnaam


ActiveWorkbook.Close False

End Sub

Dit is de code uit de kassastaat die niks meer doet dan 2x opslaan, het bestand Startbedrag openen en zichzelf daarna sluiten.

Ik snap alleen niet dat dan de macro aan de bovenkant van dit bericht niet wordt uitgevoerd maar wanneer ik hem gewoon aanklik in m'n verkenner het wel werkt.

 

[mark1987vw]

niemand een oplossing ?