Opgelost Copieeren van ander workbook lukt niet

[Atwist]

Hallo,
Ik heb een macro in elkaar geknutseld, krijg jammer genoeg een foutmelding die ik niet snap.
Het loopt vast op het copie past deel.
Naar mijn mening heb ik alles goed, of kijk ik er overheen.
Hopen dat jullie de fout wel zien.
Kan geen bestand bijvoegen omdat het weer naar een ander bestaand verwijst.

Sub kopie10()
Dim spad As String
Dim wbDoel As Workbook
'doelmap
spad = "C:\Users\andre\Desktop\Weekverkoop.xlsm"

'Kijken of map bestaat
If Dir(spad) <> "" Then

'Doelmap openen
Set wbDoel = Workbooks.Open(spad)

'copie past
ThisWorkbook.Worksheets("Model-nummers").Range("A:C").Copy wbDoel.Worksheets("Data").Range("A")

'Doelmap sluiten
wbDoel.Close savechanges = False

End If

End Sub

Alvast bedankt voor jullie tijd en moeite.

 

[JEC.]

Om even bij jouw aanpak te blijven;

wbDoel.Worksheets("Data").Range("A1")

En het lijkt mij dat savechanges op true moet in dit geval

wbDoel.Close SaveChanges:=True

 

[Atwist]

Chips er toch overheen gekeken.

Dank je wel

Macro loopt nu goed, krijg nu wel een melding van " onvoldoende geheugen"

 

[JEC.]

ThisWorkbook.Worksheets("Model-nummers").UsedRange.Resize(,3).copy

 

[Atwist]

Toppie
UsedRange.Resize had ik nog niet mee gewerkt, deze moet ik onthouden.

Heel veel dank