Bonjour
J’ai besoin d’aide sur le vba Excel, je travail sur un fichier de vérifications périodique de mes installations. Afin de ne pas oublier les rappels, j’effectue un transfert des dates avec le motif du rappel sur le calendrier Outlook. Pour cela j’utilise un code trouvé sur la toile qui fonctionne très bien
Or je rencontre un probléme ,lors d’une modification de date ,je provoque un doublons dans mon calendrier.
Ma question : Comment effectuer le transfert des dates modifier vers le calendrier Outlook.
Doit-on mettre en place un flag ,(une cellule vrai/faux)lors de la modification, si oui comment faire en automatique.
Voici le code utilisée pour le transfert :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'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
Merci