Discussion :

[Alhamzaoui80]

Bonjour,

j'ai changé le fuseau horaire sur mon pc , j'ai ajouté un heure, et quand je consulte mon calendrier Outlook 2007 (exchange) je remarque qu'il ajoute aussi un heure, sauf que moi mes rendez vous je veux les garder à l'heure planifiée au préalable, je donne exemple:

j'avais un RV planifié à 10h00 et après changement du fuseau ca devient 11h00 alors que moi je veux qu'il garde 10h00.....
le problème c'est que je veux le modifier sur plusieurs RV , est ce qu'il y moyen de le faire d'un seul coup sans ouvrir un par un.

Merci,

[carden752]

Bonjour,

Les rendez-vous sont des AppointmentItem, il suffit donc de décaler l'heure de début ce qui peut être fait avec ce type de code.
La fonction DateAdd permet d'ajouter un intervalle à une date. Ici en spécifiant "h" comme premier paramètre, je lui demande d'ajouter des heures. Le -1 correspond à en fait ajouter -1heure soit enlever une heure.

En cas d'erreur, je passe au suivant avec l'instruction On error resume next, il est peut être mieux de ne pas la mettre pour repérer les rendez-vous qui posent probème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub calendrierdecalagehoraire()
Dim rdv As AppointmentItem
On Error Resume Next
For Each rdv In Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
rdv.Start = DateAdd("h", -1, t.Start) 'Décalage de moins une heure
rdv.Save 'Sauvegarde du rendez-vous
Next
End Sub