Bonjour,

Je travaille sur un script qui exporte les rendez-vous du calendrier dans un fichier Excel en fonction de la date de début et de la date de fin.
Je demande ensuite si l'utilisateur veut supprimer les rendez-vous qui ont été exporté.

Voici le code :

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
SuppRdv
 
Sub SuppRdv
 
appointmentItems.Sort "[Start]"
 
MsgBox"Voulez-vous supprimer les messages archivés de votre  Agenda ?",VbYesNo+VbQuestion
 
If VbYes then
Set Appointments = appointmentItems.Find("[Start] >= """ & StartOfRange & """ and [Start] <= """ & EndOfRange & """ ")
While TypeName(Appointments) <> "Nothing"
Appointments.Delete
Set Appointments = appointmentItems.FindNext
 
Wend
 
Else 
	wscript.quit
 End If
 
 
End Sub
Là je rencontre 2 problèmes :

- Même si je répond "non", les rendez-vous sont supprimés
- Les rendez-vous périodiques sont supprimés même au-delà de la date de fin "EndOfRange" alors que dans l'export les rendez-vous ne dépassent pas la date de fin.

Merci de votre aide