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 : 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
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