Excel file bewaren dmv ctl+shift+s lukt niet

[Dutchie]

Bekijk bijlage VerkoopfactuurTemplate2.xlsx
Ik hoop dat hij zo overkomt

 

[edmoor]

Helaas is dat niet het document met de macro's.

Die doet het hier echter prima als ik dit er in uitvoer:

Sub OpslBestand()
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B10").Value & ".xlsx"
        .Close
    End With
End Sub

 

[Dutchie]

Goede morgen Edmoor,

Nee die doet het ook niet.

De template met Macro's staat er nu op

 

[Cobbe]

Deze doet het toch echt wel.
Je moet wel checken of je de gevraagde directory's wel hebt aangemaakt.

Sub OpslBestand()
Application.DisplayAlerts = False
 With Sheets("Verkoopfactuur")
   With ActiveWorkbook
        [COLOR="#FF0000"].SaveAs "C:\Users\cobbe\Desktop\" & .Range("B10").Value & ".xlsx"[/COLOR]
        '.SaveAs "C:\Users\Frans\Desktop\Facturen\Fact\" & .Range("B10").Value & ".xlsx"
        .Close
    End With
End with
End Sub

 

[edmoor]

Doe het eens zo:

Sub OpslBestand()
    Dim Bestand As String
    
    Application.DisplayAlerts = False
    Bestand = "C:\Users\Frans\Desktop\Facturen\Fact" & Range("B10").Value & ".xlsx"
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs Bestand, FileFormat:=51
        .Close
    End With
    Application.DisplayAlerts = True
End Sub

 

[Dutchie]

Heren hartelijk bedankt voor de vele tips en inspanningen.
Het is me gelukt.
Op 1 of andere reden wilde hij ze niet plaatsen in de map onder mijn naam.
Ik heb derhalve in de map documenten een map facturen aangemaakt et voila daar, het lukte nu wel.
Waarom de map onder mijn naam niet werd geaccepteerd is mij een raadsel.

Hoofdzaak is dat hij nu werk
Nogmaals dank jullie wel