opslaan als CSV

[DirkB]

Met onderstaande code sla ik een blad op als .csv
In dit blad staan een kolom met datums
Deze datums moeten in de csv komen in het format dd/mm/yyyy

in het blad dat ik gebruik staat de datum notatie goed
na opslaan is het formaat echter weer dd-mm-yyyy

Dim oldname$, oldpath$, oldformat
  Application.DisplayAlerts = False
  With ActiveWorkbook
    oldname = .Name
    oldpath = .Path
    oldformat = .FileFormat
    .Sheets("pinnacle import").SaveAs _
      Filename:="C:\iboss\Pinnacle import.csv", FileFormat:=xlCSVUTF8, local:=True
    .SaveAs Filename:=oldpath + "" + oldname, FileFormat:=oldformat
  End With

 

[edmoor]

Plaats dat doument eens.

 

[DirkB]

Op de een of andere manier lukt het nu wel,
ik heb in de eerste sheet de datum goed gezet.
had ik eerder ook al maar toen lukte het niet...
misschien iets in het opslaan moment?

dank voor het kijken