cellen als naam voor opslaan

[pat007]

Goeiemiddag,

Ik heb een bestand gemaakt, en wil dat het opslaat voor ik sluit met de volgende cellen
g10= nummer offerte
c9= naam klant
g11= datum

Onderstaande vb script heb ik aangemaakt, maar hij wil dat niet opslaan geeft telkens een foutmelding in het opslaan.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.ReadOnly Then
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("g10").Value & " _ " & Range("c9").Value & " _ " & Range("g11").Value & ".xlsm"
End If
End Sub

Kunnen jullie mij daar bij helpen dat excel het zo opslaat 2705_pallen_11/11/2009.xlsm

Dank U

Patrick

 

[WimenBeer]

PAtrick,

Simpel. Je fout komt door de "/" in het datum veld.
Die mag je niet gebruiken.

Succes
Wim

 

[pat007]

WimemBeer

Bedankankt voor de snelle reactie, is opgelost door het volgende aan te passen

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & [g10] & " _ " & [c9] & "_" & Format([g11], "dd-mm-yyyy") & ".xlsm"

Mvg,

Patrick

 

[Warme bakkertje]

Bedankt voor de feedback. Kan je de vraag dan nog even op opgelost zetten