Als kopie opslaan

[oldhand]

Goedendag,

Ik wil in excel iets als kopie opslaan..
Daar bedoel ik mee dat na het opslaan nog steeds het orginele bestand geopend is en het nieuwe bestand als kopie is weggeschreven.

wel moet het doelbestand een CSV zijn.

Na het opnemen van een macro heb ik de volgende code:

Sub InternetSave()
'
' InternetSave Macro
' De macro is opgenomen op 5-11-2007 door Teun Ouwehand.
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "FTPPAD", FileFormat _
        :=xlCSVMSDOS, CreateBackup:=False
End Sub

Deze macro werkt prefect alleen na het uitvoeren staat het verkeerde bestand geopend.

Ik hoop dat iemand mij kan helpen

Groeten Teun

 

[Relleboer]

Hoi Teun,

Voor End Sub nog even toevoegen naambestand.activate dan moet het wel goed komen

Jan-willem

 

[oldhand]

Bedankt

Bedankt, Probleem opgelost..