Set monNamespace = CreateObject("Outlook.Application").GetNamespace("MAPI")
    ' Obtenir le calendrier "TEST"
    Set calendrier = monNamespace.GetDefaultFolder(9).Folders("TEST") ' 9 correspond au calendrier
    'Debug.Print calendrier.Name
 
    'Instancie le dossier Calendrier pour l'export
    Set cldExport = calendrier.GetCalendarExporter
 
    'instance de l'objet Calendrier (dossier)
     With cldExport
        'information de disponibilité
        .CalendarDetail = olFullDetails
        'N'exporte que les éléments situés dans les horaires de travail
       ' .RestrictToWorkingHours = True
        'Exclu les pièces jointe
       ' .IncludeAttachments = False
        'Ajoute les éléments privés
       ' .IncludePrivateDetails = True
        'Sauvegarde le fichier au chemin définit
        '.includeCategories = True
        .SaveAsICal "C:/MonCalendrier.ics"
    End With