Réponse acceptée !
Re,
Ceci devrait ouvrir Outlook sur le calendrier (sans ton code) car isnon je ne sais pas comment cela se comporte

'Coche la référence Microsoft Outlook 9.0 Object Library
'(ou superieur pour outlook 2003)
Dim mOutlookApp As New Outlook.Application
Dim mNameSpace As Outlook.NameSpace
Set mNameSpace = mOutlookApp.GetNameSpace("MAPI")
mNameSpace.GetDefaultFolder(olFolderCalendar).Display
Set mNameSpace = Nothing
Set mOutlookApp = Nothing
Coloration syntaxique automatique [AFCK]

@+, Julien