2 bestanden tegelijk openen

[Wallo]

Hallo iedereen,
Wie kan mij helpen, graag had ik geweten hoe je 2 bestanden simultaan opent,
bv: als ik bestand A open gaat automatisch bestand B ook open.
Er wordt alleen in bestand A gewerkt waarna via een macro de gegevens naar bestand B gekopieerd worden.
Alvast bedankt

 

[CB01]

Je kunt aan het begin van je Macro onderstaande code toevoegen. Bewerk deze uiteraard mer de locatie van bestand B. Ik heb als voorbeeld een bestand gebruikt die "Map1" heet en op mijn bureaublad staat opgeslagen.

Workbooks.Open Filename:="C:\Documents and Settings\Owner\Desktop\Map1.xls"

 

[Warme bakkertje]

In ThisWorkbook

Private Sub Workbook_Open()
    Workbooks.Open "Volledig pad en naam van je tweede bestand"
    ThisWorkbook.Activate
End Sub

 

[Wallo]

Hallo CB01,
bedankt voor de zeer snelle reactie, dit is de macro die de gegevens kopieerd naar het andere bestand, kan je mij nu nog zeggen waar ik uw macro moet plaatsen heb een aantal plaatsen geprobeerd zonder resultaat.
Alvast bedankt

Sub rijknippenplakken()
On Error Resume Next
Do
With Sheets("patlijst nieuw").Columns(1).Find([B1], , xlValues, xlWhole).EntireRow
Sheets("pat nr").Rows(3).Insert xlDown
.Copy Sheets("pat nr").Cells(3, 1)
.Copy Sheets("blad1").Cells(3, 1)
.Delete
End With
With Sheets("overzicht machine toekennen")
.Rows(3).Insert Shift:=xlDown
Sheets("machine toekennen").[A100:U100].Copy
.[A3].PasteSpecial xlValues
End With
With Sheets("pat nr").Select
Cells.Select
Selection.Copy
Windows("Bestelbons VMH.xls").Activate
Cells.Select
ActiveSheet.Paste
Sheets("pat nr").Rows(3).EntireRow.Delete
Windows("Nieuwe inventaris walter 09-11-2009 VMH.xls").Activate
Sheets("patlijst nieuw").Select
Range("B1").Select
End With
Loop Until Err.Number > 0
Sheets("pat nr").Rows(3).EntireRow.Delete
Sheets("overzicht machine toekennen").Rows(3).EntireRow.Delete
End Sub

 

[Jack Nouws]

In ThisWorkbook

Private Sub Workbook_Open()
    Workbooks.Open "Volledig pad en naam van je tweede bestand"
    ThisWorkbook.Activate
End Sub

Zoals het Warme Bakkertje al aangeeft "In ThisWorkbook"

Met vr gr
Jack

 

[CB01]

Dit zou hem m oeten zijn:

Sub rijknippenplakken()
Workbooks.Open Filename:="C:\Documents and Settings\Owner\Desktop\Map1.xls"
On Error Resume Next
Do
With Sheets("patlijst nieuw").Columns(1).Find([B1], , xlValues, xlWhole).EntireRow
Sheets("pat nr").Rows(3).Insert xlDown
.Copy Sheets("pat nr").Cells(3, 1)
.Copy Sheets("blad1").Cells(3, 1)
.Delete
End With
With Sheets("overzicht machine toekennen")
.Rows(3).Insert Shift:=xlDown
Sheets("machine toekennen").[A100:U100].Copy
.[A3].PasteSpecial xlValues
End With
With Sheets("pat nr").Select
Cells.Select
Selection.Copy
Windows("Bestelbons VMH.xls").Activate
Cells.Select
ActiveSheet.Paste
Sheets("pat nr").Rows(3).EntireRow.Delete
Windows("Nieuwe inventaris walter 09-11-2009 VMH.xls").Activate
Sheets("patlijst nieuw").Select
Range("B1").Select
End With
Loop Until Err.Number > 0
Sheets("pat nr").Rows(3).EntireRow.Delete
Sheets("overzicht machine toekennen").Rows(3).EntireRow.Delete
End Sub

 

[Wallo]

Allebij weer verschrikkelijk bedankt, werkt perfect.:thumb::thumb::thumb:

 

[HSV]

Hallo iedereen,
Wie kan mij helpen, graag had ik geweten hoe je 2 bestanden simultaan opent,
bv: als ik bestand A open gaat automatisch bestand B ook open.
Er wordt alleen in bestand A gewerkt waarna via een macro de gegevens naar bestand B gekopieerd worden.
Alvast bedankt

Excel heeft hier ook een ingebouwde functie voor.
Genaamd: Werkruimte opslaan...