AppointmentReset(gRDV)
gRDV.Titre = SAI_Titre
gRDV.DateDébut = SAI_DateDeb + SAI_HeureDeb
gRDV.DateFin = SAI_DateFin + SAI_HeureFin
gRDV.Lieu = SAI_Lieu
gRDV.Contenu = SAI_Desc
IF SAI_Fuseau <> "" THEN
gRDV.FuseauHoraire = SAI_Fuseau
END
gRDV.Auteur = SAI_Auteur
gRDV.Invité = SAI_Invités
gRDV.JournéeEntière = INT_Jentière[1]
IF AppointmentAdd(gCal, gRDV) THEN
ToastDisplay("RDV ajouté")
ELSE
Error(ErrorInfo())
END