VBA Rdv Outlook

Bonjour,

J'ai trouver un petit code sympas qui me permets d'inscrire un RDV Outlook via excel (qui fonctionne à merveille d'ailleurs...)

Le truc c'est que je souhaiterai inscrire le RDV sur un autre planning (sur lequel j'ai les droits "éditeur") , et pas sur le mien "planning actif". L'autre planning s'appelerait ici "toto"

Je n'arrive pas à réadapter le code... pouvez-vous m'aider.

voici le code :

[code]

'procédure permettant d'ajouter un rdv dans un calendrier outlook

Sub AjoutRDVCalendrier()

'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 = "09/05/2016 12:00:00"

.Duration = 60 'durée de rdv, en minutes

.Subject = "Essai RDV" 'Sujet du rdv

.Body = "" 'corps du texte de la réunion

.Location = "" '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

End Sub

[code]

Merci à Vous

Joss