Bonjour à tous ,

J'ai crée un calendrier supplémentaire 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
sur tous les postes. Malheureusement, s'il ouvre bien ce calendrier, mon code m'affiche : erreur d'execution 13
incompatibilité de type

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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)
Set myNewFolder = myFolder.Folders("calendrier communautaire").Display
Set myNewFolder = myFolder.Folders
End Sub
Pourriez vous me dire ou est l'erreur ?

Merci pour votre aide