Opslaan als , wil ik afsluiten.

[Oude leerling]

In het bestand Jeu de Boule zijn uitslagen aangebracht
Dit bestand wil ik nu opslaan onder een andere naam en daarna afsluiten en dan
het originele bestand weer openen
Maar met "ActiveWorkbook.Close" krijg ik een foutmelding

Wat doe ik nu fout??

ThisWorkbook.SaveAs Filename:= _
"C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen" & Range("F1")

ActiveWorkbook.Close


Workbooks.Open Filename:="C:\Users\Gebruiker\Documents\Jeu de Boule.xlsm"

 

[edmoor]

Weet je hoeveel foutmeldingen er kunnen zijn?

 

[HSV]

Maak gebruik van 'savecopyas'.

 

[Oude leerling]

Ja , je heb gelijk
de foutmelding is "Deze eigenschap of methode wordt niet ondersteund door dit object"

Hsv , ik krijg met deze code dezelfde foutmelding

ActiveWorkbook.SaveCopyAs Filename:= _
"C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen" & Range("F1").xls

geen flauw idee hoe op te lossen

 

[HSV]

Range("f1") & ".xls"

 

[Oude leerling]

Harry ,

Dat was het. Opgelost
Eigenlijk wel simpel maar ik kon er niet opkomen.
Jullie beide bedankt voor de geboden steun.
Vriendelijke groet , Jaap