• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel bestand minimaliseren en andere activeren

Status
Niet open voor verdere reacties.
H

Henk972

Gebruiker
Lid geworden
9 okt 2013
Berichten
12
Ik heb een Excel bestand (klant.xlsm) dat als ik het open, een ander Excel bestand opent (normen.xls). M.b.v.:

Private Sub Workbook_Open()
Dim vLinks As Variant
Dim lLink As Long
vLinks = ThisWorkbook.LinkSources(xlExcelLinks)
For lLink = LBound(vLinks) To UBound(vLinks)
If LCase(vLinks(lLink)) Like "*normen.xls" Then
Workbooks.Open vLinks(lLink)
End If
Next
End Sub

Nu wil ik nog graag het volgende:
1. normen.xls wordt gemininaliseerd na het openen
2. klant.xlsm wordt geactiveerd
3. de koppelingen in klant.xlsm naar normen.xls worden automatisch bijgewerkt (zonder pop up)

Is dit mogelijk? Ik heb al wat geprobeerd met ThisWorkbook.Activate(), maar ik krijg het niet voor elkaar.
 
Test het zo eens Henk.
Code: 
Private Sub Workbook_Open()
 Dim vLinks As Variant
 Dim lLink As Long
 vLinks = ThisWorkbook.LinkSources(xlExcelLinks)
 For lLink = LBound(vLinks) To UBound(vLinks)
  If LCase(vLinks(lLink)) Like "*normen.xls" Then
    application.screenupdating = false
     Workbooks.Open vLinks(lLink),true
     ThisWorkbook.Activate
  End If
 Next
 End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan