Bonjour,

J'ai crée une macro qui me permet de supprimer un RDV dans mon calendrier Outlook, maintenant j'aimerais que cette macro supprime un RDV dans un autre calendrier que le mien mais je ne sais pas comment intégrer le nom de la personne en question.

Voici le code actuellement crée :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
'procédure pour supprimer un rdv existant
Sub supprimeRDVCalendrier()
 
    'déclaration des variables
    Dim oOutlook As Outlook.Application
    Dim oAppointment As Outlook.AppointmentItem
 
    Dim namespaceOutlook As Outlook.Namespace
    Dim DossierCalendrier As Outlook.Folder
 
    'on déclare un objet collection qui va contenir tous les rdv correspondat aux critères de filtre
    Dim collectionAppointments As Outlook.Items
 
    Dim sFilter As String
    'Dim myRecipient As Outlook.Recipient
 
    'gestion d'erreurs
    On Error GoTo Err_Execution
 
    'on crée ensuite les objets
    Set oOutlook = CreateObject("Outlook.Application")
    Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
    'Set myRecipient = namespaceOutlook.Recipient("Carla B")
    'définit le dossier calendrier
    Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
 
    'on définit les critères de filtre
    'la date doit être formaté au format Outlook
    sFilter = "[Start] >= '" & Format(ActiveCell, "ddddd h:nn AMPM") & "'"
    'sFilter = "[Start] = ActiveCell'"
    strIncident = ActiveCell.Offset(0, -12).Value
    strMachine = ActiveCell.Offset(0, -8).Value
    strAtelier = ActiveCell.Offset(0, -9).Value
    strName = ActiveCell.Offset(0, -4).Value
 
 
 
    'on recupère tous les rdv correspondant aux critères avec la méthode restrict
    Set collectionAppointments = DossierCalendrier.Items.Restrict(sFilter)
 
    'boucle sur tous les rdv trouvés
    For Each oAppointment In collectionAppointments
        'si le sujet correspond on supprime le rdv
        If oAppointment.Subject = "Inter n°" & strIncident & " " & strMachine Then
            oAppointment.Delete
        End If
    Next
 
    'Libération des variables.
    Set oAppointment = Nothing
    Set oOutlook = Nothing
 
Fin_Execution:
    Exit Sub
Err_Execution:
    MsgBox Err.Description, vbExclamation
    Resume Fin_Execution
End Sub
Je vous remercie par avance pour aide.

Florentine