Bonsoir JCD et le forum
Si l'application écrit des dates formatées US "EcritDate1", et utilsée dans d'autres pays. Pour éviter une telle confusion, il suffit d'utiliser des formats nommés. Voir les exemples : "EcritDate2", "EcritDate3" cela assure la compatibilité dans Excel. met ça dans un module et lance la procédure SubEcritDate1
Sub EcritDate1()
' EcritDate1 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("A1") = Format(Today, "mm/dd/yy")
Call EcritDate2
Call EcritDate3
End Sub
Sub EcritDate2()
' EcritDate2 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("B2") = Format(Today, "Short Date")
End Sub
Sub EcritDate3()
' EcritDate3 Macro
' Macro enregistrée le 19/12/2002 par Moriceau Gérard
Today = Now()
Range("C3") = Format(Today, "Long Date")
End Sub
@+ Gérard