leyeti77
XLDnaute Nouveau
Bjr,
Je galère pour sauvegarder un workbook, tout en conservant les dates au bon format dans le cellules.
Dans les cellules j'ai la date sous le format Date jj/mm/yyyy
Je sauvegarde le fichier au format .txt.
Quand je le fait manuellement, tout va bien, même si je dois 3 répondre 3 fois YES.
J'ai enregistré ma séquence en VBA, et quand j'utilise la macro résultante là les date changent de format, et passe en mm/dd/yyyy 🙁
Dans le régional setting de Windows je suis bien en dd/mm/yyyy.
Je ne sais plus quoi faire
============================
Columns("V:W").Select
Selection.NumberFormat = "m/d/yyyy"
Dim strFile As String
strFile = "C:\$user\Backfill\Bench\2.0_ROAT_Input\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & _
Format(Date, "yyyymmdd") & ".txt"
ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlText
ActiveWindow.Close , SaveChanges:=True
Je galère pour sauvegarder un workbook, tout en conservant les dates au bon format dans le cellules.
Dans les cellules j'ai la date sous le format Date jj/mm/yyyy
Je sauvegarde le fichier au format .txt.
Quand je le fait manuellement, tout va bien, même si je dois 3 répondre 3 fois YES.
J'ai enregistré ma séquence en VBA, et quand j'utilise la macro résultante là les date changent de format, et passe en mm/dd/yyyy 🙁
Dans le régional setting de Windows je suis bien en dd/mm/yyyy.
Je ne sais plus quoi faire
============================
Columns("V:W").Select
Selection.NumberFormat = "m/d/yyyy"
Dim strFile As String
strFile = "C:\$user\Backfill\Bench\2.0_ROAT_Input\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & _
Format(Date, "yyyymmdd") & ".txt"
ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlText
ActiveWindow.Close , SaveChanges:=True