XL 2010 Macro pour supprimer des rdv Outlook en fonction de leur objet via Excel

[jozerebel]

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

 

[Lone-wolf]

Bonsoir jozerebel

Un essai comme ceci

With Sheets("synthese")
derlig = .Range("a" & Rows.Count).End(xlUp).Row

For lig = 3 To derlig
nom = nom & .Range("b1") & " " & .Range("a" & lig)
Next
End With

For Each OlAppointment In OlItems
If OlAppointment.Subject = "RELANCE " & nom Then
OlAppointment.Delete
End If
Next
Sheets("synthese").Range("c2:c65536").ClearContents

 

[jozerebel]

Bonjour Lone Wolf,

Merci pour ton aide, hélas, cela ne change rien...

J'ai un message d'erreur avec "Objet Requis".

sur la ligne :


For Each OlAppointment In OlItems


Une idée?


Merci !

 

[Lone-wolf]

Bonjour jozerebel

Tu as activé la référence Outlook? Si oui, essaie en ajoutant ceci avant la boucle for each

On error Resume Next
Application.DisplayAlerts = False

 

[jozerebel]

Oui la référence est bien active.

Le rajout du code ne fait pas planter la macro et les données de la colonne C sont bien supprimées.

par contre, mes RDV ne sont pas du tout supprimés.

Une autre idée?

 

[Lone-wolf]

Re

Désolé non. Fait une recherche sur le net pour voir si tu trouve quelque chose.

 

[jozerebel]

Oki. Merci en tout cas !