Discussion :

[arctica]

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

[pgz]

Bonjour.

C'est plutôt pour le forum Outlook...

On ne voit pas la déclaration de myNewFolder. Si c'est

Code :

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

Dim myNewFolder as Outlook.Folder

le code devrait être

Code :

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

Set myNewFolder = myFolder.Folders("calendrier communautaire")

Par contre la ligne suivante génèrera à son tour une erreur.

Cordialement,

PGZ