Bestand opslaan als in active path

[Cor de Snor]

Ik heb een bestand voor een toernooi wat op berschillende PC's gaat draaien. Het bestand heeft de naam "Leeg" met kenmerk alleen lezen.
Zodra de eerste gegevens ingevuld worden moet het opslaan als de waarde in Cel 37 op het active path. Als ik het bestand vanaf de USB-stick open zie ik het patch en bestandsnaam in de sheet: "L:\Proef\X - LEEG" In de macro staat de volgende regel:
ActiveWorkbook.SaveAs (ActiveWorkbook.Worksheets(1).Range("a37").Value & ".xlsm") De macro slaat het bestand wel op maar als: C:\Users\xxxx\Documents\(A37). Terwijl ik het op wil laten slaan in "L:\Proef\(A37)". Wat doe ik hier verkeerd?

 

[AHulpje]

Doe het eens zo:

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & ActiveWorkbook.Worksheets(1).Range("a37").Value & ".xlsm"

 

[Warme bakkertje]

    With ActiveWorkbook
        .SaveAs .Path & "\" & .Sheets(1).Range("A37").Value, 52
    End Wtih

 

[edmoor]

Of:

With ThisWorkbook
    .SaveAs .Path & "\" & .Sheets(1).Range("A37")
End With

 

[AHulpje]

@Warme bakkertje
De USB-stick krijgt vast niet op de verschillende PC's dezelfde driveletter toegewezen, maar de With constructie is natuurlijk wel mooier:

    With ActiveWorkbook
        .SaveAs .Path & "\" & .Worksheets(1).Range("a37").Value & ".xlsm"
    End With

 

[Cor de Snor]

Hallo mannen, ik dank jullie voor je snelle reactie en zeker voor de oplossing. Ik heb de code van AHulpje gebruikt met de regel with ActiveWorkbook en het werkt prima. bedankt

 

[HSV]

Mijn voorkeur gaat altijd uit naar 'ThisWorkbook' i.p.v. 'ActiveWorkbook'.

 

[AHulpje]

ThisWorkbook is in dit geval inderdaad beter.

 

[Warme bakkertje]

@AHulpje
Die & ".xlsm" is overbodig als je het fileformat meegeeft zoals ik gedaan heb.
Daardoor wordt de extensie automatisch toegevoegd. Net zoals bij ExportAsFixedFormat de
& ".pdf" overbodig is als je bij de ExportAsFixedFormat 0 of xlTypePDF (opslaan alsPDF) meegeeft.

 

[edmoor]

Die 52 is ook overbodig als de extensie niet gewijigd hoeft te worden.

 

[snb]

?

With ThisWorkbook
   .SaveCopyAs .Path & "\"  .Sheets(1).Range("A37")
End With