Sub ChangeSeparateursSystemes()
Range("A1").Formula = "1,234,567.89"
Application.DecimalSeparator = "-"
Application.ThousandsSeparator = "?"'on peut mettre ce que l'on veut
Application.UseSystemSeparators = False
End Sub
Option Explicit
Private Sub workbook_BeforeClose(Cancel As Boolean)
With Application
.DecimalSeparator = ","
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
End Sub
Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
End Sub
Salut, la solution suggérée par HIJACK est à mon avis plus saine
car ne touche pas au réglage global du système mais seulement local pour ce fichier
Placer dans module ThisWorkbook
Code:Option Explicit Private Sub workbook_BeforeClose(Cancel As Boolean) With Application .DecimalSeparator = "," .ThousandsSeparator = " " .UseSystemSeparators = False End With End Sub Private Sub Workbook_Open() With Application .DecimalSeparator = "." .ThousandsSeparator = " " .UseSystemSeparators = False End With End Sub