Bestand zoeken in directory

[perry99]

Hallo,

Hieronder staat een VBA welke ik in een sheet heb staan.
Mijn vraag is of het bestand artikelbestand1 altijd geopend moet staan om de records te laten vinden of kan d.m.v. een
verwijzing naar een directory het bestand ook gesloten blijven.
Ik hoop dat iemand mij kan helpen, waarbij het bestand gezocht wordt en deze gesloten kan blijven.

  [B][SIZE="3"]Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlCalculationManual
If Target.Column = 4 Then
With Workbooks("artikelbestand1.xls").Sheets("Code1")
   Set c = .Columns(2).Find("**" & Target.Value, , xlValues, xlWhole)
End With
Target.Offset(, 2).Value = c.Offset(, 1).Value
End If
Application.Calculation = xlCalculationAutomatic
End Sub[/SIZE][/B]

De verwijziging zou moeten zijn G:\test\prive\artikelbestand1.xls

Ik kom erzelf niet uit en hoop dat iemand mij kan helpen.

Alvast bedankt voor jullie moeite.

Groetjes,

Perry :shocked::shocked::shocked::shocked:

 

[Warme bakkertje]

Wat jij wil kan niet. Je kan geen Find-functie uitvoeren in een gesloten bestand. Je kan wel telkens je bestand op de achtergrond openen, de waarde opzoeken en je bestand terug sluiten.

 

[perry99]

Hallo Rudi,

Allereerst mijn dank voor jouw reaktie.

Ik ging er al vanuit dat dat niet zou gaan lukken met een find-functie in een verborgen bestand.
Nu heb ik een functie dat bij het opstarten van het werkbestand, het artikelbestand automatisch opstart, echter weet ik niet of het artikelbestand op de achtergrond loopt.
Zou jij hier naar willen kijken en eventueel aanpassen, zodat het artikelbestand op de achtergrond draait.
Heb de functie hieronder staan.

[SIZE="3"]Private Sub Workbook_open()

Bestand = "g:\artikelbestand1.xls"
   On Error GoTo filecheck_Error
Workbooks("artikelbestand1.xls").Activate
Windows("werkbestand.xls").Activate
    Range("D21").Select
   Exit Sub
filecheck_Error:
Workbooks.Open Filename:="g:\artikelbestand1.xls", ReadOnly:=True
Windows("werkbestand.xls").Activate
    Range("D21").Select

End Sub[/SIZE]

Kan jij ook kijken dat als het werkbestand wordt afgesloten ook het artikelbestand automatisch wordt afgesloten.

Alvast bedankt voor jouw bijzondere medewerking.

Groetjes,

Perry:thumb::thumb::thumb:

 

[paulva]

Je kan natuurlijk wel je data inlezen om daarna te zoeken.
http://www.helpmij.nl/forum/showthr...re-excel-documenten-in-n-windows-map-mogelijk

 

[perry99]

Hallo Paul,

Mijn dank voor het meedenken, echter het artikelbestand welke ik koppel in het werkbestand A1 is veel te groot.

Bovenstaande formule werkt opzich, mijn probleem waar ik niet uitkom is dat als ik het werkbestand sluit het artikelbestand ook automatisch zou moeten sluiten en dat krijg ik niet voor elkaar.

Nogmaals mijn dank voor het meedenken.

Groetjes,

Perry:thumb::thumb::thumb:

 

[paulva]

???

Maar eigenlijk hoeft het artikelenbestand zelfs niet geopend te worden.
En vba heb je al helemaal niet nodig.
Misschien mis ik wel iets in je redenering.

Beste groeten,
Paul.

 

[Warme bakkertje]

Dit zou moeten volstaan voor het openen en sluiten van je artikelbestand

Private Sub Workbook_Open()
    Workbooks.Open "G:\artikelbestand1.xls", , True
    Application.Goto ThisWorkbook.Sheets(1).[D21]
End Sub

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

 

[perry99]

Hallo Rudi,

Geweldig, draait als een speer.

Nogmaals mijn enorme dank voor het meedenken en oplossen van bovenstaand probleem.

Het is maar goed dat er mensen zoals jij, tijd en energie willen stoppen in het oplossen van de vele excel-vragen.

RESPECT

Groetjes,

Perry:thumb::thumb::thumb: