Partager via

Créer un rendez-vous périodique qui se produit tous les 2 ans

  • Article

Cette rubrique présente un exemple de code VBA (Visual Basic for Applications) qui permet de créer un rendez-vous périodique d’après les critères suivants :

  • Commence à 14 heures et se termine à 17 heures.

  • A lieu le dernier lundi du mois de juin.

  • A lieu tous les deux ans et trois fois uniquement.

  • Entre en vigueur le 1er juin 2009.

L’exemple de code qui en résulte est un rendez-vous de 14 heures à 17 heures, le dernier lundi du mois de juin 2009 (29 juin), 2011 (27 juin) et 2013 (24 juin). Le rendez-vous est enregistré dans le calendrier par défaut puis affiché.

Sub RecurringYearNth() 
 Dim oAppt As AppointmentItem 
 Dim oPattern As RecurrencePattern 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 Set oPattern = oAppt.GetRecurrencePattern 
 With oPattern 
 ' Appointment occurs every n-th year (with n indicated by the Interval property). 
 .RecurrenceType = olRecursYearNth 
 ' Appointment occurs on Monday. 
 .DayOfWeekMask = olMonday 
 ' Appointment occurs in June. 
 .MonthOfYear = 6 
 ' Appointment occurs on the 5th or last Monday (per the DayOfWeekMask property). 
 .Instance = 5 
 ' Appointment occurs three times. 
 .Occurrences = 3 
 ' Appointment lasts for 180 minutes each time. 
 .Duration = 180 
 ' Appointment becomes effective on June 1, 2009. 
 .PatternStartDate = #6/1/2009# 
 ' Appointment starts at 2 P.M. 
 .StartTime = #2:00:00 PM# 
 ' Appointment ends at 5 P.M. 
 .EndTime = #5:00:00 PM# 
 ' Appointment recurs every 2 years (per a RecurrenceType of olRecursYearNth). 
 .Interval = 2 
 End With 
 oAppt.Subject = "Recurring every 2 years YearNth Appointment" 
 oAppt.Save 
 oAppt.Display 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.