• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestand opslaan in hetzelde Path

Status
Niet open voor verdere reacties.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste,

Met onderstaande code geeft hij "Fout 424, Object vereist" weer
Kan iemand mij zeggen waar het fout loopt
In cel B5 staat "DESD" en in cel T2 staat "MEC"
Naam van het bestand zou dan moeten zijn: Aanvraagformulier DESD Mec 21-11-2018 13:35.xlsm

Code: 
Sub Opslaan()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "Aanvraagformulier" & " " & Range("B5").Value & " " & Range("T2").Value & " " & Format(Now, "yyyy-mm-dd hh-mm").xlsm
End Sub
 
Laatst bewerkt:
Je maakt dezelfde fout als vrijwel iedereen en laat een vereiste \ weg:
Code: 
ThisWorkbook.Path & "[COLOR="#FF0000"]\[/COLOR]" & "Aanvraagformulier" &

Daarnaast mag er in de naam van een bestand geen : staan zoals in je voorbeeld.
In je code staat dat ook niet.

Wilde nog toevoegen wat SjonR al opmerkt :)
 
Laatst bewerkt:
Code: 
& ".xlsm"

Ik zou er ook
Code: 
 , Fileformat:=52
achter zetten, anders slaat ie het niet als XLSM op.
 
Laatst bewerkt:
Maak er dan 52 van. Werk je op een Mac?
Het gaat overigens wel goed als het bestand ook als .xlsm was geopend.
 
Als TS op een Mac werkt, want dat staat er niet bij, had je gewoon gelijk ;)
 
Beste,

Sorry voor de late reactie, vergaderingen en te veel werk :p

Met aanpassing van volgende code geeft hij nog steeds fout 424 weer
Werk met Excel 2016 op Windows PC
Het bestand wordt opgehaald op deze locatie waar het ook moet worden weggeschreven
G:\OLM 718\Personeel OLM\Werkvoorb. ELE\BENJAMIN\SAP\Nieuwe aanvragen\Aanvraagformulier.xltm
Het is wel een XLTM extensie waarmee hij opent en opslaat als XLSM extensie

Code: 
Sub Opslaan()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Aanvraagformulier" & " " & Range("B5").Value & " " & Range("T2").Value & " " & Format(Now, "yyyy-mm-dd hh-mm").xlsm, FileFormat:=52
End Sub
 
zie #3

Code: 
Sub Opslaan()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Aanvraagformulier" & " " & Range("B5").Value & " " & Range("T2").Value & " " & Format(Now, "yyyy-mm-dd hh-mm") & ".xlsm", FileFormat:=52
End Sub

werkt dit wel?

edit:

zonder ".xlsm" werkt het ook:

Code: 
Sub Opslaan()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Aanvraagformulier" & " " & Range("B5").Value & " " & Range("T2").Value & " " & Format(Now, "yyyy-mm-dd hh-mm"), FileFormat:=52
End Sub
 
Laatst bewerkt:
Beste SjonR

Nu gaat het perfect :thumb:

Bedankt aan allen
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan