Private Sub Worksheet_SelectionChange(ByVal Target as Range)
Dim myItem as New Outlook.Application
Dim rdv As Outlook.AppointmentItem
Dim ligne As Integer
Dim mois As Integer
If Not Intersect (Target, Range("A:A")) Is Nothing Then
On Error GoTo Fin
Set myItem = CreateObject("Outlook.Application")
Set rdv = myItem.CreateItem(olApppointmentItem)
ligne = ActiveCell.Row
mois = Range("F" & ligne).value
With rdv
.MeetingStatut = olMeeting
.RequiredAttendees = (invité)
.Alldayevent = True
.Start = CDate(DateAdd("ww", -mois, Range("G" & ligne).value)
.Subject = "Rencontre avec " & Range("A" & ligne).value
.Display
End With
Set myItem = Nothing
End If
Fin:
Exit Sub
Range("H" & ligne).value = rdv.start ' C'est avec celui-là que je voudrais que la date
'que j'ai finalement sélectionner dans mon calendrier soit inscrit dans la cellule H
'de mon tableau.
End Sub