Bonjour tous
D'abord je m'excuse si je post au mauvais endroit.
Alors je crée un planning sur excel que j'exporte vers outlook, avec l'appui vers un bouton qui lance ce code.
Cà pas de problème
code:
Maintenant j'aimerai pouvoir gérer les conflits de manière à ce que si un rdv était déjà à cette heure ci, et que les deux se chevauchent une alerte me l'indique, sans interdire la création. Simplement me l'indique.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Dim myOlApp As New Outlook.Application Dim myItem As Outlook.AppointmentItem Dim Cell As Range Dim myConflicts As Outlook.Conflicts For Each Cell In Range("b23:b" & Range("b34").End(xlUp).Row) Set myItem = myOlApp.CreateItem(olAppointmentItem) With myItem .MeetingStatus = olNonMeeting .Subject = Cells(17, 9) & " - " & Cell.Value & " krad" .Start = Cell.Offset(0, 6) 'Format(Cell.Offset(0, 6), "MM/DD/YYYY") ' Attention : format mm/dd/yy .Duration = Hour(Cell.Offset(0, 8)) * 60 + Minute(Cell.Offset(0, 8)) 'minutes .Location = "labo" .ReminderMinutesBeforeStart = 60 .Save End With Set myItem = Nothing Next Cell
J'aimerais aussi qu'en changeant mon planning celui ci et en l'exportant celui ci mette à jour l'ancien,(date et heure) le sujet et le lieu ne changent pas,
merci pour toutes vos idées à venir
Partager