Creer un rendez vous outlook dans un calendrier partagé

Bonjour,

Voilà mon problème, de mon tableau Excel j'arrive à ajouter un rendez-vous sur Mon calendrier, mais je n'arrive pas à le mettre sur un calendrier partagé nommé Paquis.

Voici le code que j'ai récupérer et qui marche sur mon calendrier.

 'déclaration des variables
    Dim oOutlook As Outlook.Application
    Dim oAppointment As Outlook.AppointmentItem
    Dim namespaceOutlook As Outlook.Namespace
    Dim DossierCalendrier As Outlook.MAPIFolder

    'gestion d'erreurs
    On Error GoTo Err_Execution

    'on crée ensuite les objets
    Set oOutlook = CreateObject("Outlook.Application")
    Set namespaceOutlook = oOutlook.GetNamespace("MAPI")

    'définit le dossier calendrier
    'GetDefaultFolder renvoit le calendrier du compte actif
    Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)

    'on crée un nouveau rendez-vous
    Set oAppointment = DossierCalendrier.Items.Add

    'on renseigne ensuite les principaux paramètres
    With oAppointment
        .Start = Application.Proper(cal1.Value) 'cal1 calendrier VBA d'un userform
        .Duration = 600 'durée de rdv, en minutes
        .Subject = "Protocole du " & ComboBox1.Value 'Sujet du rdv
        .Body = "Charge de la cabine: " & TextBox8.Value & " Kg - Type d'installation: " & TextBox9.Value 'corps du texte de la réunion
        .Location = TextBox4.Value & TextBox5.Value 'Lieu du rdv
        'on sauvegarde et ferme
        .Save
        .Close (olSave)
    End With

    'Libération des variables.
    Set oAppointment = Nothing
    Set oOutlook = Nothing

Fin_Execution:
    Exit Sub
Err_Execution:
    MsgBox Err.Description, vbExclamation
    Resume Fin_Execution

Vous trouverez ci-joint une capture de mes calendriers Outlook.

Par avance Merci

Bonjour,

à tester

Set DossierCalendrier = namespaceOutlook.folders.item("Paquis")

Re merci de ta réponse, malheureusement Excel m'affiche un message