XL 2016 Créer une tache dans Outlook en fonction d'un tableau Excel

estivill

XLDnaute Nouveau
Bonjour à tous,
Je souhaite faciliter le suivi et la communication des absence pour notre secrétaire, mais j'ai du mal sur un point.....

Je souhaite créer une tache Outlook lorsque je créais un nouveau congé dans "Liste Congés", j'ai récupérer un code que j'ai essayé d'adapter mais ça ne fonctionne pas .....

Dans l'idéal j'aurais souhaité que les taches se créaient dans un calendrier partagé "Absences".

Merci d'avance pour le temps que vous pourrez m'accorder.
******************************************************************************************************************
Sub Création_RDV_Calendrier()

Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim Fld As Outlook.MAPIFolder
derl = Range("B" & Rows.Count).End(xlUp).Row

For i = 4 To derl 'démarre à la ligne 4 jusqu'à la première cellule vide

If (ThisWorkbook.Sheets("Liste Congés").Range("N" & i) <> "") Then
Set Fld = getDefaultFolderFromUser("moncomptedemessagerie", olFolderCalendar) 'compte outlook + calendrier
Set Rdv = Fld.Items.Add(olAppointmentItem)
With Rdv
.MeetingStatus = olMeeting
.Subject = Cells(i, 2).Value & " " & Cells(i, 2).Value 'Intitulé + Nom de l'agent
.Body = Cells(i, 11).Value 'Observation
'.Location =
.Start = Range("C" & i).Value & Range("H" & i).Value 'Date et heure de début
.Duration = Range("J" & i).Value 'Durée en minutes
.Save
End With
Range("N" & i).Value = Now 'Flag d'envoi
Next

Set OkApp = Nothing

End Sub
 

Pièces jointes

  • Gestion congés Cabinet du Maire.xlsm
    61.8 KB · Affichages: 10

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87