Excel et calendrier partagé outlook

Bonjour,

Je voudrais créer un lien entre le tableau de suivi de tâches de mon équipe (1) et notre calendrier outlook partagé (2).

J'ai repris un modèle existant dans un autre sujet de ce forum : ça marche parfaitement mais ça enregistre les événements dans MON calendrier. Comment puis-je faire pour paramétrer l'envoi vers notre calendrier partagé (qui s'appelle "ENT - Reseau interne").

Voici le code que j'ai actuellement.

Merci beaucoup pour votre aide !!

Option Explicit

Sub NouveauRDV_Calendrier()

'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library

Dim myOlApp As New Outlook.Application

Dim MyItem As Outlook.AppointmentItem

Dim Cell As Range

Dim dLgC As Long, dLgR As Long

For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)

Set MyItem = myOlApp.CreateItem(olAppointmentItem)

With MyItem

.MeetingStatus = olNonMeeting

.Subject = Cell

.Start = Cell.Offset(0, 2)

.AllDayEvent = True

.Location = Cell.Offset(0, 1)

.Save

End With

Set MyItem = Nothing

Next Cell

With Sheets("Feuil1")

dLgC = .Range("A65536").End(xlUp).Row

If dLgC = 7 Then MsgBox "Il n'y a pas de données à transférer dans la feuille Resultats": End

Range("A8:C" & dLgC).Copy

End With

With Sheets("Feuil2")

dLgR = .Range("A65536").End(xlUp).Row + 1

.Range("A" & dLgR).PasteSpecial Paste:=xlPasteValues

End With

Sheets("Feuil1").Range("A8:C22").ClearContents

Sheets("Feuil2").Select

End Sub

Rechercher des sujets similaires à "calendrier partage outlook"