kopieren/plakken vanuit ander excelbestand

[Peer44]

Hallo,

ik kom er maar niet uit heb de opbouw van de vba code gewijzigd hopelijk kan iemand mij verder helpen:

ik probeer om via een macro data te kopieren uit een "database" bestandje, wat gevuld wordt door "Jet Reports".

naam van het bestand: "Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx"
dit is 1 werkblad waarvan ik de complete kolommen d:J wil kopieren.

dit moet geplakt worden in de productieplanning, dit is voor mij nu de moeilijkheid, ik verwijs in de macro naar een bestandsnaam

Windows("productieplanning met verzend data etc.xlsm").Activate

Alleen is er voor iedere dag een ander bestand, dus de naam in de macro moet variabel zijn op de een of andere manier. (de productieplanning wordt dagelijks gekopieerd van een bronbestand en de naam wordt gewijzigd met de datum ervoor)

het geopend bestand (van waaruit de macro is gestart moet open blijven).


Kan iemand mij verder op weg helpen?

bij voorbaat dank.

Sub order1()
'
' order1 Macro
'

'
    Workbooks.Open Filename:= _
        "Y:\Productielijst planning\orderbestand tbv productieplanning.xlsx"
        
    'jet reports wordt gestart om data op te halen uit administratie'
    Application.Run "JetMenu", "Refresh"
    
    'kolommen welke ik nodig heb worden gekopieerd'
    Columns("D:J").Select
    Range("D2").Activate
    Selection.Copy
    
    'productieplanning wordt weer geopend'
    Windows("productieplanning met verzend data etc.xlsm").Activate
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    
    'op het tabblad orders worden de kolommen geplakt als waarde'
    Sheets("orders").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F4").Select
    
    'Het orderbestand wordt weer afgesloten'
    Windows("orderbestand tbv productieplanning.xlsx").Activate
    Range("H7").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    
    'productieplanning wordt weer getond, sheet invulblad'
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Invulblad").Select
End Sub

 

[Peer44]

Windows("productieplanning met verzend data etc.xlsm").Activate

vervangen door

Windows(ThisWorkbook.Name).Activate

heeft de gewenste oplossing gebracht.