Bonjour à tous.
A partir d'un fichier Excel où l'on saisi des dates pour des échéances, des évènements réunions sont automatiquement créés.
Ce que je souhaiterais, c'est si la date est modifiée que la réunion crée précédemment soit annulée.
Voici mon code de création qui fonctionne parfaitement :
Est-ce que vous auriez des idées pour m'aider ?
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 If Not Intersect(Target, Range("C187")) Is Nothing Then choix = MsgBox("Confirmez-vous la date du " & Range("C187") & " pour cette échéance? Un évènement sera créé à cette date dans votre calendrier ", 36, "Confirmation") 'Si l'utilisateur a cliqué sur le bouton Oui If choix = vbYes Then Dim objOL Dim objAppt Const olAppointmentItem = 1 Const olMeeting = 1 Set objOL = CreateObject("Outlook.Application") Set objAppt = objOL.CreateItem(olMeeting) With objAppt .Subject = "Date limite engagement des dépenses financement Etat " & Range("E177") & " Projet " & Range("C5") .Body = "Ceci est un évènement généré lors de la saisie" .Start = Range("C187") .AllDayEvent = True .BusyStatus = olFree .Categories = "Echéance Automatique " .ReminderSet = True .ReminderMinutesBeforeStart = 21600 .Importance = olImportanceHigh .Location = "CCVT" .MeetingStatus = olMeeting 'participant optionnel .OptionalAttendees = ADDRESSEDUGEST 'participant obligatoire .RequiredAttendees = Range("E9") .send End With Set objAppt = Nothing Set objOL = Nothing End If If choix = vbNo Then Range("C187") = "" Range("C187").Select End If End If End If
Bonne journée
Partager