probleem met macro

[marcdb]

Hé,

Een bestand opslaan met als naam de naam gelijk aan de inhoud van een cel.

Bijvoorbeeld in cel A1 staat "januari 2013" geschreven. Het bestand moet dan de naam "januari 2013.xls" krijgen en opgeslagen in de juiste map. Het laatste is geen probleem.

Wat heb ik al geprobeerd?

Naam = Range("a1").Value

ChDir "C:\Documents and Settings\Lieve\Mijn documenten\Lieve\archief\2013"

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\Lieve\Mijn documenten\Lieve\archief\2013\[Naam.xls]", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Het bestand wordt zo opgeslagen als [Naam.xls].xls en dat is de bedoeling niet.

Een blad te selecteren met dezelfde denkwijze is geen probleem.

naam = ActiveCell.Value

If naam = "" Then Sheets("Startblad").Select: BerichtBox: End

Sheets([naam]).Select

Ik hoop dat mijn uitleg een beetje verstaanbaar is.

Wie kan mij helpen?

[bucky]

Deze had ik nog staan, ergens weggepikt ben zelf geen VBA man;-)

Misschien kun je er iets uithalen.

Public Sub Opslaan()
Dim FileName As String
FileName = ActiveWorkbook.Path & "\" & Cells(1, 1).Value
ActiveWorkbook.SaveAs FileName
ActiveWorkbook.Close
End Sub

Of

Sub Opslaan()
ActiveWorkbook.SaveAs FileName:=Sheets(1).Range("A1")
End Sub

bucky

- - - Updated - - -

Hier heb je er nog een, ik denk dat je dit meer bedoeld.

Wel ff het pad aanpassen

Code moet in ThisWorkbook, en achter een knoppie.

Sub OpslaanAls()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = Range("A1").Value
ThisWorkbook.SaveAs Filename:="[color=#FF0000]C:\Documenten\Testjes Excel\Testbestanden\[/color]" & CelMetNaam
Application.DisplayAlerts = True
End Sub

bucky

29 december 2012 aangepast door bucky

[bucky]

Hier heb je er nog een, ik denk dat je dit meer bedoeld.

Wel ff het pad aanpassen

Code moet in ThisWorkbook, en achter een knoppie.

Sub OpslaanAls()
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = Range("A1").Value
ThisWorkbook.SaveAs Filename:="[color=#ff0000]C:\Documenten\Testjes Excel\Testbestanden\[/color]" & CelMetNaam
Application.DisplayAlerts = True
End Sub

bucky

[marcdb]

Dank u wel, het werkt perfect!