Hulp in VBA, gegevens wegschrijven van een excel bestand

[bennyvw]

Beste VBA specialisten, graag zou ik hulp willen om een paar scripts in VBA.
In bijlage vinden jullie een excel bestand "Aanvraag" de bedoeling hiervan is dat de gegevens (in grijze velden) achteraf weggeschreven worden naar een bestand dat nog niet geopend is namelijk "overzicht aanvragen".
De gegevens van "Aanvraag" zouden telkens in de volgende regel moeten bijgeschreven worden in "overzicht aanvragen",zodat dit een volledige tabel wordt van aanvragen, dit bestand zou zich automatisch moeten open en opnieuw sluiten en de gegevens opslaan.
Dit is misschien veel gevraagd maar ik ben een volledige leek in VBA,in excel kan ik een beetje mijn plan trekken maar daar blijft het bij.
Voor al diegene die me willen helpen reeds dank
Mvg
Benny

Bekijk bijlage Aanvraag.xlsmBekijk bijlage Overzicht aanvragen.xlsx

 

[HSV]

Verwijder alle samengevoegde cellen.
Zet beide bestanden in dezelfde map.

Sub hsv()
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Sheet1")
Workbooks.Open ThisWorkbook.Path & "\Overzicht aanvragen.xlsx"
 ActiveWorkbook.Sheets("Overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = _
 Array(.Range("G3"), .Range("C3"), .Range("C6"), .Range("C9"), .Range("E12"), .Range("G14"), .Range("D17"))
    .Range("C3,C6,C9,D17,E12,G3,G14").ClearContents
    ActiveWorkbook.Close True
 End With
End Sub

 

[bennyvw]

Hoy HSV,
ik heb alle samengevoegde cellen verwijdert en alle 2 de bestanden staan in dezelfde map
doch stop de code op Workbooks.Open ThisWorkbook.Path & "\Overzicht aanvragen.xlsx" en geeft foutcode 1004 aan.
Wat kan ik daar aan doen.
In alle geval bedankt voor de reactie

Mvg
Benny

 

[HSV]

Is het een .xlsm extensie i.p.v. .xlsx ?

 

[bennyvw]

Overzicht aanvragen is xlsx
Aanvraag is xlsm

 

[HSV]

Hoe ziet de foutmelding er precies uit.

Heb je misschien een spatie teveel in de bestandsnaam.

 

[bennyvw]

 

[HSV]

Geen idee.
Werkt perfect bij mij.
Zet onderstaande regel eens onder "Sub hsv()".

MsgBox ThisWorkbook.Path

en voer de code even met sneltoets F8 uit.
Wat is dan het bericht wat verschijnt?

 

[bennyvw]

Ok werkt nu, er zat een fout in mijn bestand "Overzicht aanvragen" heb het verwijdert en een nieuw gemaakt onder dezelfde naam en nu werkt alles perfect.
Vriendelijk bedankt