[XL-2016] Vérification avant création d'une tâche outlook

Bonjour,

Voici mon problème, ma macro crée correctement une tache outlook, seulement à chaque ouverture de mon fichier une tache identique se crée.
Je souhaite "simplement" qu'une vérification soit faite au début de ma macro et si la tache existe déjà de ne pas la recréer.

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
 
Dim OutlookApp As New Outlook.Application
    Dim Tache As Outlook.TaskItem
 
 
 
     Sub TacheOutlook()
 
 
    Set OutlookApp = Outlook.Application
    Set Tache = OutlookApp.CreateItem(olTaskItem)
 
    With Tache
        .Subject = "Contrôle "
        .Body = "Effectuer le contrôle "
        .StartDate = #1/27/2019#
        .ReminderTime = #1/27/2019 9:00:00 AM#
        .ReminderSet = True
        .GetRecurrencePattern = olRecursWeekly
        .Importance = 2
        .ReminderPlaySound = True
        .ReminderSoundFile = "C:\Program Files (x86)\Microsoft Office\Office16\MEDIA\CHIMES.WAV"
        .Save
    End With
 
 
End Sub

Si quelqu'un possède une piste

Merci :zoubi:

Vérification avant création d'une tâche outlook - vba