Intégration d'un rappel dans outlook

Bonjour à tous,

je me tourne vers vous car petit nouveau en vba, je bidouille plus que je ne code. Généralement cela convient à mes besoins, mais pas cette fois ci.

J'ai un tableau dans lequel ce trouve :

colonne R "la date"; colonne Q "l'objet"; colonne G "le corps de texte"

mon objectif serait qu'à chaque fois que je lance la macro, celle ci ajoute dans outlook un rappel a partir de la cellule active qui se trouve etre la date (en colonne R)

vous trouverez plus bas mon code qui n'est pas opérationnel.

Si une âme charitable voit le probleme, je lui serai tres reconnaissante.

Cordialement,

jb

Sub CreationRappelOutlook()
Dim OkApp As NewOutlook.Application
Dim RDV As Outlook.AppointmentItem
Set RDV = OkApp.CreateItem(olAppointmentItem)

With RDV
.MeetingStatus = olNonMeeting
ActiveCell.Offset(0, -1).Select
.Subject = ActiveCell.Value
ActiveCell.Offset(0, -10).Select
.Body = ActiveCell.Value
ActiveCell.Offset(0, 11).Select
.Start = ActiveCell.Value + 9 / 24
.Duration = 30
.Save
End With
Set OkApp = Nothing

MsgBox "Rappel ajouté"
End Sub

Sub CreationTousRappels()

Call CreationRappelOutlook

End Sub