Répétition macro

Répétition macro - VB/VBA/VBS - Programmation

Marsh Posté le 07-02-2012 à 11:15:13    

Bonjour,  
 
Je suis débutant dans la macro excel je souhaite faire une macro pour créer automatiquement un rdv sur outlook via excel, j'ai trouvé une macro qui marche nikel par contre il y a une chose que je voudrais modifier mais je ne sais pas comment faire !
 
voici le problème rencontré:
 
Quand je rajoute des données dans le tableau et que je fait "enregistrer les rendez-vous" ceux qui ont été enregistré dans outlook sont ré-enregistrés à chaque fois, et j'ai donc rapidement un nombre impressionnant de rendez-vous qui polluent le calendrier...
Est-ce possible de faire en sorte que quand on sauvegarde dans Outlook, on sauvegarde que les nouvelles données du tableau ?
 
Voici le code de la macro !
 
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
 
 
En résumé comment éviter les répétitions de rdv sur outlook ? ? ? ? ? ? ?

Reply

Marsh Posté le 07-02-2012 à 11:15:13   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed