Creer un rappel dans agenda outlook en partant d'un fichier

Bonjour à tous,

J'espère que tout le monde va bien en cette fin d'année.

Je vous solicite car j'ai besoin de créer des alertes dans mon calendrier outlook pour les visites médicales de mon équipe.

Je voudrais que pour chaque employé (A) je sois alerté à la date de rappel (E) avec pour titre "visite médicale + le nom de l'employé".

C'est très loin de mes compétences et après plusieurs tentatives d'adaptations de macro présentes sur le forum je suis contrain de vous demander de l'aide.

Je joint mon fichier.

Si une âme charitable veut bien m'aider 🥹

Merci

Bonjour,

Essaie :

Sub CreationRappels()
  Dim olApp As Object, myItem As Object, C As Range
  Set olApp = CreateObject("Outlook.Application")
  For Each C In Range("A4", Cells(Rows.Count, 1).End(xlUp))
    Set myItem = olApp.CreateItem(3)
    myItem.Subject = "visite médicale " & C.Value
    myItem.ReminderTime = Range("H4").Value - 4
    myItem.DueDate = C.Offset(, 4).Value
    myItem.ReminderSet = True
    myItem.Display
    myItem.Save
  Next C
End Sub

Daniel

Bonjour Daniel,

Déjà merci pour ton aide.

Alors cela fonctionne, la macro me creer bien des alertes mais aucune traces dans mon calendrier outlook.

J'enregistre et ferme les fenetres qui s'ouvrent mais rien n'apparait.

Bonjour,

Non, effectivement, les rappels s'enregistrent dans les tâches. Est-ce des rendez-vous que tu veux créer ? Ils s'enregistreront dans le calendrier.

Daniel

Bonjour Daniel,

oui effectivement je me suis mal expliqué, je voudrais enregistrer des rendez-vous désolé.

Merci de ton aide

Bonjour,

Qu'est-ce que je prends comme date de rendez-vous ? Je fixe le rappel combien de temps avant le RDV ?

Bonjour Daniel,

Prends la date qui se trouve en colonne "E".

Merci

Bonjour,

Essaie :

Sub CreationRDVs()
  Dim olApp As Object, myItem As Object, C As Range, RDV As Object, olNS As Object
  Set olApp = CreateObject("Outlook.Application")
  For Each C In Range("A4", Cells(Rows.Count, 1).End(xlUp))
    Set RDV = olApp.CreateItem(1) '(1 = olAppointment)
    RDV.Start = Range("H4").Value - 4
    RDV.Subject = "visite médicale " & C.Value
    RDV.ReminderMinutesBeforeStart = 10080
    RDV.ReminderSet = True
    RDV.Start = C.Offset(, 4).Value
    RDV.MeetingStatus = 0 'olMeeting
    RDV.Display
    RDV.Save
    Set RDV = Nothing
  Next C
End Sub

Daniel