Bestand opslaan met naam uit een cel werkt niet!

[Erwin0688]

Bekijk bijlage GIP_Tekening_Lezen__N.xlsWie kan me verder helpen?

Ik heb een klein test gemaakt voor 'tekening lezen'. Op het voorblad moeten de leerlingen hun achternaam + voornaam invullen.
Vervolgens klikken ze op start en komen ze automatisch op de volgende pagina terecht voor de test af te leggen.
Zodra de test klaar is, klikken ze op "indienen" en krijgen ze hun resultaten te zien (tabblad RAPPORT).

Dan klik je op "OPSLAAN" maar daar knelt het schoentje. De VBA macro wil niet meer werken. Hij heeft slechts één keer gewerkt! En nu doet hij het niet meer...
In cel A100 staat de achternaam (tabblad RAPPORT).

En dit is de code die ik gebruik:

Sub OpslaanAls()

ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & Range("A100") & ".xls"

End Sub

Weet iemand waar de fout zit? Ik werk met Office 2007.


Alvast bedankt!

Greetz,
Erwin.

PS. Normaliter zijn de bladtabs niet zichtbaar, nu wel voor jullie en de afbeeldingen zijn verwijderd (max. 100kb limiet voor bijlages)

 

[Warme bakkertje]

In een standaardmodule.

Sub OpslaanAls()
With ActiveWorkbook
    .SaveCopyAs .Path & "\" & Sheets("Rapport").Range("A100") & ".xls"
End With
End Sub

 

[Erwin0688]

Hoi,

Ik weet niet wat ik fout doe, maar ik plak jou code rechtstreeks in mijn module maar hij doet het nog steeds niet!
Enig idee wat ik mis doe?

Greetz,
Erwin.

 

[Warme bakkertje]

Sub OpslaanAls()
With ActiveWorkbook
    .SaveCopyAs .Path & "\" & Sheets("Rapport").Range("A100").Value & ".xls"
End With
End Sub

 

[Erwin0688]

Rudi,

Dank u wel voor de enorme hulp! Dit werkt perfect.

Greetz,
Erwin.

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.

 

[Erwin0688]

Markeer je de vraag dan nog even als opgelost.

Oeps, dat waren we vergeten! Thnx voor de herinnering. :thumb: