GM

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