Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie ou définit une valeur Long qui spécifie le nombre d’unités d’un type de périodicité donné entre chaque occurrence. Lecture-écriture.
Syntaxe
expression. Interval
expression Variable qui représente un objet RecurrencePattern .
Remarques
La propriété Interval doit être définie avant la propriété PatternEndDate.
Par exemple, définir la propriété Interval sur 2 et la propriété RecurrenceType sur olRecursWeekly entraînerait l’apparition du modèle toutes les deux semaines.
Lorsque RecurrenceType a la valeur olRecursYearNth ou olRecursYear, la propriété Interval indique le nombre d’années entre les occurrences. Par exemple, Interval égal à 1 indique que la périodicité est annuelle, Interval égal à 2 indique que la périodicité est bisannuelle, et ainsi de suite.
Exemple
Cet exemple de Visual Basic pour Applications utilise GetRecurrencePattern pour obtenir l’objet RecurrencePattern pour l’élément de rendez-vous nouvellement créé. Les propriétés RecurrenceType, DayOfWeekMask, PatternStartDate, Interval, PatternEndDate et Subject sont définies, le rendez-vous est enregistré puis affiché avec le modèle : « A lieu toutes les 3 semaines le lundi à compter du 21/01/2003 jusqu’au 21/12/2004 de 14h00 à 17h00. »
Sub CreateAppointment()
Dim myApptItem As AppointmentItem
Dim myRecurrPatt As RecurrencePattern
Set myApptItem = Application.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/2003 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2004 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display
Set myOlApp = Nothing
Set myApptItem = Nothing
Set myRecurrPatt = Nothing
End Sub
Voir aussi
Procédure : créer un rendez-vous sous forme de réunion dans le Calendrier
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.