Bonjour.
j'ai trouver une macro sur votre site mais je n'arrive pas a la modifié a ma convenance.
en fait je souhaiterai supprimé tout les RDV dont les objets sont dans la colonne A de la page Calendrier.
sachant que tout mes rendez vous ont des objets unique je n'ai pas besoin de me préoccuper de la date.
je suis sur office 2010.
je vous remercie d'avance pour l'aide que vous pourrez m'apporter.
la voici :
Option Explicit
Sub SupprimerRDV()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
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
Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
Set OlItems = OlFolder.Items
Set OlAppointment = OlItems.Item(1)
'Suppression du premier RDV dans le calendrier :
'1 étant le 1er rdv par ordre d'index du calendrier
'attention l'index correspond à l'odre de creation et non par ordre de date
'la macro "LireRDV" liste les rendez vous par ordre d'index
OlAppointment.Delete
End Sub
j'ai trouver une macro sur votre site mais je n'arrive pas a la modifié a ma convenance.
en fait je souhaiterai supprimé tout les RDV dont les objets sont dans la colonne A de la page Calendrier.
sachant que tout mes rendez vous ont des objets unique je n'ai pas besoin de me préoccuper de la date.
je suis sur office 2010.
je vous remercie d'avance pour l'aide que vous pourrez m'apporter.
la voici :
Option Explicit
Sub SupprimerRDV()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
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
Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
Set OlItems = OlFolder.Items
Set OlAppointment = OlItems.Item(1)
'Suppression du premier RDV dans le calendrier :
'1 étant le 1er rdv par ordre d'index du calendrier
'attention l'index correspond à l'odre de creation et non par ordre de date
'la macro "LireRDV" liste les rendez vous par ordre d'index
OlAppointment.Delete
End Sub