Bonjour à tous,
@AL22 =>
1/ sur mon ordi je n'ai pas le pb de "09/08/20 au lieu du 08/09/20" (inversion mois et jour). Je suppose qu'il s'agit d'une différence de config d'excel.
Pour essayer d'y remédier, dans le code de "l'Usf_Fiche", dans la "Private Sub CommandButton2" on peut modifier la ligne :
Tg(1, 2) = CDate(Me.Label2.Caption)
par :
Tg(1, 2) = DateSerial(Year(Me.Label2.Caption), Month(Me.Label2.Caption), Day(Me.Label2.Caption))
2/ pour l'heure, en effet c'est pas top. Dans le module "Accueil" procédure "New_Rdv" on peut modifier la ligne :
H0 = f(Now(), 15) / 24
par H0 = Now()
pour afficher l'heure courante.
Est-ce que ça corrige les défauts indiqués?
Pierre