Re : Créer un rdv OUTLOOK depuis excel
Merci, mais en fouillant dans le site j'ai trouver un code de macro qui marche niquel
par contre il y a un détail que je voudrais corriger mais encore une fois je bloque ( ELUS CASSE BONBON DE L'ANNEE 2012
).
Voici le code :
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
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, 1) ' Attention : format mm/dd/yy
.Duration = Cell.Offset(0, 2) 'minutes
.Location = Cell.Offset(0, 3)
.Save
End With
Set MyItem = Nothing
Next Cell
End Sub
Le problème c'est quand je rajoute des données dans mon tableau et que je fait "enregistrer les rendez-vous" ceux qui ont été enregistré dans outlook sont ré-enregistrés à chaque fois, et c'est quand même très très chiant ...
Est-ce possible de faire en sorte que quand on sauvegarde dans Outlook, on sauvegarde que les nouvelles données du tableau ?