incomptabilité de type

PHILIP

XLDnaute Occasionnel
Bonjour à tous ,

J'ai crée un calendrier supplementaire dans outlook 2007 Ce calendrier est commun à plusieurs personnes. J'ai ce code qui me permet d'ouvrir ce calendrier commun Il sera mis en taches journalieres à une heure fixe
Malheureusement, s'il ouvre bien ce calendrier mon code m'affiche une
erreur d'execution 13
incompatibilité de type
Code:
Sub caly()
Dim mOutlookApp As New Outlook.Application
Dim mNameSpace As Outlook.Namespace
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
[COLOR="Orange"]Set myNewFolder = myFolder.Folders("calendrier communautaire").Display[/COLOR]Set myNewFolder = myFolder.Folders
End Sub

Pourriez vous me dire ou est l'erreur ?

Merci pour votre aide
 

Discussions similaires

Statistiques des forums

Discussions
314 655
Messages
2 111 605
Membres
111 217
dernier inscrit
aladinkabeya2