Bonjour,

Je dois mettre à jour un calendrier SharePoint à partir d'informations Excel.

Ma difficulté : je sais écrire sur mon calendrier, mais je n'arrive pas à accéder au calendrier "Astreinte".

Merci pour votre aide

------------
Sub Ajout_Astreinte_Calendrier()

Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim myreciient As Outlook.Items
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder
Dim Dernligne As Integer
Dim i As Integer
Dim debastreinte As Date
Dim finastreinte As Date

'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
Set myrecipient = namespaceOutlook.CreateRecipient("Astreinte")
myrecipient.Resolve
If myrecipient.Resolved Then
Set DossierCalendrier = namespaceOutlook.GetSharedDefaultFolder(myrecipient, olFolderCalendar)
End If