Fejl Runtime error 424
HejJeg kan ikke få denne VBA kode til at gemme (gem som)
Jeg har en anden makro der fint finder en mappe i en mappe på et andet drev, makroen kopiere mappen med indhold, og giver den et nyt navn. I den kopierede mappe skal der åbnes en fil, hvor data læses ind, så fint så godt.
Problemet kommer når jeg ønsker at gemme filen med et nyt navn
Sub Udfyld_FIL()
Dim stfolder As String
Dim Safe As String
Sheets("Ark1").Activate
stfolder = Range("A3").Value
Kunde = Range("A2").Value
SO = Range("C2").Value
'Name = Range("C23").Value
Safe = Range("B16").Value
ChDir _
"\\192.168.1.4\Produktions pc stepping\Ordre igangværende\" & stfolder
Workbooks.Open Filename:=Sheets("ark1").Range("B19")
Sheets("Ordrespecifikation").Range("S1").Select
ActiveCell.Value = Kunde
Sheets("Ordrespecifikation").Range("S13").Select
ActiveCell.Value = SO
ChDir _
"\\192.168.1.4\Produktions pc stepping\Ordre igangværende\" & stfolder
wbtarget.SaveAs Filename:=Safe
ActiveWorkbook.Close
Det nye navn, og stien der skal bruges ifm at gemme er fx denne:
\\192.168.1.4\Produktions pc stepping\Ordre igangværende\3465 Agilent Technologies Denmark ApS SO14250\3465 Agilent Technologies Denmark ApS SO14250.xlsm
Håber en af jeg måske kan gennemskue hvad det er der går galt
PFT