[MichelXld]

bonjour Jean-Louis

tu peux utiliser

 
Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
 
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
 
With MyItem
    .MeetingStatus = olMeeting
    .Subject = "le forum xld"
    .Body = "...description ...."
    .Location = "sur le chat"
    .Start = #8/7/2006 9:30:00 PM#     ' Attention : format mois/jours/année
    .Duration = 30 'minutes
    .Categories = "Amis"
    .Save
End With
 
Set myOlApp = Nothing
End Sub

(testé avec Office2002)


bon apres midi
MichelXld