XL 2016 Exporter les données d'un rendez-vous Outlook vers Excel

[Julius26]

Bonjour à tous,

Je viens vers vous, car je cherche comment je pourrais en envoyant une réunion outlook, la date et l'heure de cette réunion s'envoie dans un tableau Excel.

Je m'explique rapidement:

J'ai un tableau avec des noms, des dates de fins d'ententes et une colonne de date de rencontre et je voudrais que lorsque je sélectionne un nom il m'ouvre la fenêtre de réunion outlook exemple 1 mois avant la fin de l'entente. Tout ça fonctionne bien. Mais lorsque je choisis la bonne date où mon contact et moi sommes disponible et que j'envoie la demande de réunion depuis outlook, Je veux que cette nouvelle date d'affiche dans mon tableau dans la colonne rencontre.

J'espère avoir été assez clair. Malheureusement je ne peux pas mettre de fichier, étant donné que c'est pour mon travail et que ce fichier est confidentiel.

Merci de votre aide.

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