Discussion :

[zenico64]

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

[zenico64]

(Bon je crois que j'ai trouvé alors je vais m'auto-répondre ^^' )

Et bien c'est très simple, il suffit de préciser que tu veux continuer le code même si il y a une erreur. Ceci se fait par l'ajout de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

Euh... c'est tout.