rebonsoir
j'espere que cette adaptation pourra t'aider
With MyItem
.MeetingStatus = olNonMeeting
.ReminderSet = False
.Subject = 'le forum xld'
.Body = '...description ....'
.Location = 'sur le chat'
.Start = #3/28/2006 9:30:00 PM# ' Attention : format mois/jours/année
.Duration = 30 'minutes
.Save
End With
bonne soirée
MichelXld