Opvragen gegevens uit bestand

[Jeroen123456]

Iemand een idee of volgende kan

Ik moet met regelmaat de waarde weten van cel K3 uit tabblad "Data" uit een bestand met een bepaald ordernummer.

Nu zoek met verkenner in directory c\voorbeeld\bestanden\ op ordernummer het bestand
Open het
klik naar tabblad "Data"
Kik naar cel K3
en neem de waarde over.
en sluit het bestand weer

De bestandnaam is langer dan het ordernummer maar begint altijd met het ordernummer.
Dus zeg bestand heet "123456 Klantnaam abcdfgh" (Het ordernummer is eenduidig wat er achterstaat weet ik nooit precies)
Dan zoek ik op 123456 en vind het bestand.

Kan ik in een xcel sheet een formule plaatsen waar ik 123456 invul
en dat of de formule of een vba code de waarde van cel "Data!K3" ophaalt van het bestand in c\voorbeeld\bestanden\ waarvan de bestandsnaam begint met 123456?

 

[AHulpje]

Ja, dat kan. Plaats bijlagen in dezelfde map, open Jeroen123456.xlsm en druk op de knop.

 

[Jeroen123456]

Dit werkt super. Heel erg bedankt!

Als ik nog een vraag stellen mag.

na workbooks open komt de melding [bijwerken koppelingen]. In het gevonden bestand.
Ik kan niet echt vinden hoe ik de macro door kan laten lopen zonder dit aan te hoeven klikken. Hij mag van mij automatisch bijwerken.

bvd!

 

[AHulpje]

Kijk hier eens:
https://support.microsoft.com/nl-nl...andde,wordt er geen waarschuwing weergegeven.

 

[Jeroen123456]

Ik vond uiteindelijk de optie

, updatelinks:=3

zodat ik het in vba kon aansturen.

bedankt weer jullie hulp

 

[snb]

De eigenschappen van een koppeling stel je in in het tabblad 'Data' bij 'connections' of 'edit links'.
Maar het bestand van @Ah bevat geen enkele koppeling, maar een macro.
Dus ik snap niet waar die melding dan vandaan komt.

Ik zou het zó doen ( sneller en geen schermflikkering):

Sub M_snb()
    if Dir(ActiveWorkbook.Path & "\" & [B1] & "*.xlsx") <> "" then
      with getobject(ActiveWorkbook.Path & "\" & [B1] & "*.xlsx")
        cells(3,11) =.Sheets("Data").Range("K3")
        .Close 0
      end with
    End If
End Sub