Bonjour à tous,

Le titre de ce message représente le message d'erreur que j'ai.

Erreur d'exécution "13"
incompatibilité de type

Sous forme d'un message box.

J'ai un code qui parcourt mes calendriers outlook :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim objNS As Outlook.NameSpace
Dim objAppointments As Outlook.Items, objCalendarFolder As Outlook.MAPIFolder
Dim objAppointment As Outlook.AppointmentItem
 
 
Set objNS = Application.GetNamespace("MAPI")
Set objCalendarFolder = objNS.GetDefaultFolder(olFolderCalendar)
Set objAppointments = objCalendarFolder.Items
 
 
For Each objAppointment In objAppointments
      '....
Next
Si je met la boucle for en Commentaire, le message ne parait plus.

Je pense donc que j'essaie de faire rentrer un truc d'un mauvais type dans objAppointment (Outlook.AppointmentItem) en parcourant objAppointments (Outlook.Items).

Mes questions :
Que peut contenir Mon objet objAppointments? Autre chose que des calendriers?
Comment contourner le problème?

Merci