Range van Blad opslaan in mapje

[Oude leerling]

Geacht forum ,

Ik gebruik office 2016 en wil een gedeelte van een sheet , genaamd "Eindklassement" ,
opslaan in een mapje maar de gebruikte code doet het niet.
Wat doe ik nou fout ??
In A1 staat een formule welke de datum van vandaag aangeeft

Worksheets("Eindklassement").Range("A1:M40").SaveAs Filename:= _
"C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen " & Range("A1")

Jaap

 

[Leotaxi]

misschien zo

Worksheets("Eindklassement").Range("A1:M40").SaveAs Filename:= _
"C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen " & Format(Range("A1"),"dd-mm-yyyy" & ".xlsx"

 

[Leotaxi]

anders

Sheets.Add after:=Sheets(Sheets.Count)
Sheets("Eindklassement").Range("A1", "M40").Copy Range("A1")
ActiveSheet.Move
ActiveWorkbook.SaveAs ("C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen " & Format(Range("A1"), "dd-mm-yyyy") & ".xlsx")
ActiveWorkbook.Close

mvg
Leo

 

[Oude leerling]

Leo ,
De eerste code werkt niet , er moest trouwens achteraan de code nog een haakje sluiten
maar dat hielp ook niet
De 2e code doet het wel
Dank je wel
Jaap

 

[Oude leerling]

Leo , als ik de kolombreedte wil behouden , waar moet ik dan wat toevoegen??

 

[VenA]

U bent nogal dol op onnodige spaties. Doe dat bij voorkeur niet.

Een pad hoort te eindigen met een '\'

Probeer het zo eens

Sub VenA()
Application.ScreenUpdating = False
c00 = "D:\temp\" '"C:\Users\Public\Documents\Jeu de Boule 2016\Einduitslagen[COLOR="#FF0000"]\[/COLOR]"
Sheets("Eindklassement").Range("A1:M40").Copy
With Workbooks.Add
    With .Sheets(1).[A1]
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteColumnWidths
        .Select
    End With
    .SaveAs c00 & Format([F1], "yyyymmdd") & Format(Time, "_hhmmss") & ".xlsx", 51
    .Close True
End With
End Sub

 

[HSV]

Een pad hoort te eindigen met een '\'

Zo te lezen is 'Einduitslagen' geen map.

Leo ,
De 2e code doet het wel
Dank je wel
Jaap