Automatisch opslaan met locatie

[Paul-RT]

Hallo excel experts.

Ik heb een uitgebreide klanten / facturering systeem in excel.
Op zich werkt dat wel redelijk, maar ik moet er nog wat aan schaven.

Zo heb ik een stukje macro, die een bestand opslaat onder een bepaalde file-naam.
Dat gaat goed, alleen is de map-locatie niet correct.
Excel zet de file ergens op de schijf neer.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  If ThisWorkbook.Saved = True Then Exit Sub

  If (Sheets("KlantenRE-Crashrepair").Range("A3") = "") Or (Sheets("KlantenRE-Crashrepair").Range("A3") = "*") Then GoTo geenklant
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=Sheets("KlantenRE-Crashrepair").Range("A3").Value
    
    
geenklant:
  ThisWorkbook.Saved = True
End Sub

De exacte map-locatie zou dit moeten zijn:
G:\Microsoft Office 2003\Excel\Bedrijfs Formulieren\RECR\Klant gegevens

Hoe krijg ik die netjes in bovenstaande code?
Let wel, de code staat in een groter stuk macro, en werkt op zich goed.

 

[wampier]

Filename:="G:\Microsoft Office 2003\Excel\Bedrijfs Formulieren\RECR\Klant gegevens\" & Sheets("KlantenRE-Crashrepair").Range("A3").Value

afhankelijk wat er in die cell staat natuurlijk

 

[Paul-RT]

Ik ga em uitproberen.
In de cel staat een klantnummer die gegenereerd wordt door excel zelf, even verderop in de macro.

Als ik het document gewoon wegkruis, wordt het document automatisch opgeslagen, voorheen dus op een locatie die toevallig openstond.
Dus niet bij klantgegevens, maar in de map offertes of facturen. No good.


[edit]
Jaaaa! Het werkt zoals de bedoeling is !
Dit kan ik in meerdere file's van mijn boekhouding verwerken.
Thanx ! :thumb: [/edit]