bestand opslaan onder celnaam

[fraanske82]

hallo,

Ik heb onderstaande formule voor het wegschrijven van een excelbestand.
Werkt perfect!

Nu wil ik eigenlijk aan het path een map toevoegen met de naam van een cel in het bestand.
Deze map bestaat al wel!

Als voorbeeld:

Private Sub CommandButton5_Click()
Dim Pad As String
Dim Bestandsnaam As String

Bestandsnaam = Range("G8").Value & ".xls"
Pad = "G:\Heras Service\opnames\" & ActiveSheet.Range("G8").Value
MapBestaat Pad, True

ActiveWorkbook.SaveAs Filename:=Pad & "\" & Bestandsnaam, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Range("A1").Select

Application.Quit


het zou dann zoiets moeten worden als:

"G:\Heras Service\opnames\range("N2").value[/B]\"& ActiveSheet.Range("G8").Value

Ik hoop dat iemand me kan helpen

 

[Jan van Asseldonk]

"G:\Heras Service\opnames\" & range("N2").value & "[/b]\" & ActiveSheet.Range("G8").Value

waar staat de [/b] voor?
Die zou nog een probleem kunnen veroorzaken.

 

[Wigi]

Zo dan.

"G:\Heras Service\opnames\" & Range("N2").Value & "\" & Range("G8").Value

Wigi

 

[Wigi]

waar staat de [/b] voor?
Die zou nog een probleem kunnen veroorzaken.

Dat is een tag om iets in het bold te zetten, alleen ontbreekt de tag om het te openen

 

[Jan van Asseldonk]

Dat is een tag om iets in het bold te zetten

Dat vermoedde ik al, maar wilde het toch even zeker weten van de vraagsteller.
Heb al gebruikers meegemaakt die een (back)slash wilden gebruiken bij geautomatiseerd opslaan.

 

[fraanske82]

hoi bedankt voor jullie reacties.

De B was een foutje!

Als ik formule "G:\Heras Service\opnames\" & Range("N2").Value & "\" & Range("G8").Value invul krijg ik helaas een foutmelding! nog meer opties misschien?

 

[fraanske82]

sorry

Heb hem iets aangepast en hij werkt! TNX!