Transférer prise de RDV automatiquement vers un autre agenda

Bonjour,

lorsqu'un partenaire extérieur m'envoie un RDV et que j'accepte ce dernier, cela crée automatiquement ce même RDV dans mon agenda personnel (google agenda). Par contre, lorsque je crée moi-même un RDV dans mon agenda outlook professionnel, si je ne m'invite pas à l'accepter avec mon adresse mail perso (gmail), ce dernier n'apparait que sur mon mail professionnel. J'aimerai avoir le code VB qui me permette de transférer automatiquement tout RDV créé sur mon agenda professionnel vers mon agenda google personnel.
le service informatique sèche... et si je maitrise globalement le VBA, je ne l'ai encore jamais utilisé pour Outlook. J'ai donc besoin d'un peu d'aide !:mrgreen:
Merci d'avance.

A force de bidouiller et de chercher partout sur le net j'ai concocté ceci. Si ça peut servir à quelqu'un d'autre... :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub CreateAppt() 'sur création par macro d'un RDV dans l'agenda 'transmission automatique de ce RDV vers une adresse mail Dim myItem As Object Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient   Set myItem = Application.CreateItem(olAppointmentItem) myItem.MeetingStatus = olMeeting myItem.Subject = InputBox(" Saisir l'objet de la réunion ") If MsgBox("La réunion a t-elle lieu au bureau ?", vbYesNo) = vbYes Then myItem.Location = "mon bureau" Else myItem.Location = InputBox("Saisir le lieu de la réunion") End If   pdate = CDate(InputBox(" Saisir la date ")) pheure = InputBox(" Saisir l'heure ") myItem.Start = pdate & " " & pheure   myItem.Duration = InputBox("Saisir la durée estimée de la réunion en minutes (30;60;90...)")   Set myRequiredAttendee = myItem.Recipients.Add("adresseMailVersLaquelleEnvoyer@...") myRequiredAttendee.Type = olRequired   myItem.Display myItem.Send End Sub

---