openen en sluiten document met VBA

[EmBee]

Goedenmiddag,

ik heb een bestand (dashboard.xls) dat via de formule verschuiving allerlei gegevens uit een ander bestand (omzet.xls) haalt.

De formule verschuiving werkt alleen als omzet.xls geopend is.
Hoe kan ik automatisch omzet.xls openen als dashboard.xls geopend wordt? en hoe kan ik omzet.xls sluiten als dashboard.xls gesloten wordt?

Alsvast bedankt voor de hulp?

Met vriendelijke groet,

Martijn

 

[Roncancio]

Zet onderstaande code in ThisWorkbook van dashboard.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("omzet.xls").Close savechanges:=False
End Sub

Private Sub Workbook_Open()
Workbooks.Open "C:\omzet.xls"
End Sub

Controleer ook even het pad van omzet. Nu zoekt de macro in C:\.

Met vriendelijke groet,


Roncancio

 

[EmBee]

Zet onderstaande code in ThisWorkbook van dashboard.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("omzet.xls").Close savechanges:=False
End Sub

Private Sub Workbook_Open()
Workbooks.Open "C:\omzet.xls"
End Sub

Controleer ook even het pad van omzet. Nu zoekt de macro in C:\.

Met vriendelijke groet,


Roncancio

Beste Roncancio,

dit werkt! bedankt.

Met vriendelijke groet
Martijn

 

[EmBee]

Zet onderstaande code in ThisWorkbook van dashboard.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("omzet.xls").Close savechanges:=False
End Sub

Private Sub Workbook_Open()
Workbooks.Open "C:\omzet.xls"
End Sub

Controleer ook even het pad van omzet. Nu zoekt de macro in C:\.

Met vriendelijke groet,


Roncancio

Doormiddel van deze code worden een aantal documenten geopend. Als een van de geopende documenten wordt bewerkt dan wordt dit niet opgeslagen; kan excel hier een vraag over stellen (het is niet altijd de bedoeling dat opgeslagen wordt)?

Groet
Martijn

 

[DCWDPT]

Die vraag zou er zo uit kunnen zien:

If MsgBox("Moet ik de wijzigingen opslaan?", vbYesNo, "Opslaan") = vbNo Then
    Exit Sub
Else
    ActiveWorkbook.Save
End If

Deze code moet je verwerken in de VBA-codes van jouw eigen bestand. Dat lukt je vast wel.
:thumb:

 

[Wigi]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("omzet.xls").Close
End Sub

 

[EmBee]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("omzet.xls").Close
End Sub

Wigi,

jouw oplossing werkt het beste.
Iedereen bedankt voor hun reactie.

Groet
Martijn