Bonjour le Forum,
Je souhaite supprimer des rendez vous Outlook qui ont un titre bien précis. J'ai glané une macro et l'ai un peu adaptée. Cependant quand je la lance, elle tourne et tourne...... et je suis obligé de l interrompre. Je pense que c'est parce que je ne filtre pas sur une période et du coup, la macro recherche dans tout mon calendrier.
Quelqu'un peut-il m'aider svp?
D'avance merci.
Sub SupprimerRDV()
Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.Namespace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlAppointment As Outlook.AppointmentItem
Dim lig As Long
With Sheets("synthese")
For lig = 3 To 148
For Each OlAppointment In OlItems
If OlAppointment.Subject = "RELANCE " & Sheets("synthese").Range("B1") & " " & Sheets("synthese").Range("A" & lig) Then OlAppointment.Delete
.Range("C" & lig) = ""
Next
End If
Next
End With
Set OlItems = Nothing
Set OlMapi = Nothing
Set OlApp = Nothing
End Sub
Je souhaite supprimer des rendez vous Outlook qui ont un titre bien précis. J'ai glané une macro et l'ai un peu adaptée. Cependant quand je la lance, elle tourne et tourne...... et je suis obligé de l interrompre. Je pense que c'est parce que je ne filtre pas sur une période et du coup, la macro recherche dans tout mon calendrier.
Quelqu'un peut-il m'aider svp?
D'avance merci.
Sub SupprimerRDV()
Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.Namespace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlAppointment As Outlook.AppointmentItem
Dim lig As Long
With Sheets("synthese")
For lig = 3 To 148
For Each OlAppointment In OlItems
If OlAppointment.Subject = "RELANCE " & Sheets("synthese").Range("B1") & " " & Sheets("synthese").Range("A" & lig) Then OlAppointment.Delete
.Range("C" & lig) = ""
Next
End If
Next
End With
Set OlItems = Nothing
Set OlMapi = Nothing
Set OlApp = Nothing
End Sub