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