Discussion :

[patch2007]

Bonsoir,

J'ai ajouté les jours fériés dans l'agenda. OK

Mais par erreur, j'ai appliqué 2 fois les jours fériés. et ils apparaissent en double dans l'agenda mais si c'est indiqué que cela sera remplacé.

Comment faire pour supprimer tous les jours fériés de son agenda ?

Merci

Pat

[carden752]

Bonjour,

Voici une procédure VBA qui devrait te permettre de faire ce que tu souhaites. Le principe est de parcourir ton calendrier puis de comparer la catégorie du rendez-vous. Si celle-ci est "Congé (Jour de)" Alors c'est un jour de congé et on supprime l'élément.

Code :

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

1
2
3
4
5
6
7
8
Sub supprjourferie()
Dim jf As AppointmentItem
For Each jf In Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
    If jf.Categories = "Congé (Jour de)" Then
    jf.Delete
    End If
Next
End Sub

Il te faudra éventuellement rajouter à nouveau les jours fériés.

[patch2007]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
Sub supprjourferie()
Dim jf As AppointmentItem
For Each jf In Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
    If jf.Categories = "Congé (Jour de)" Then
    jf.Delete
    End If
Next
End Sub

Super le code , et si Outlook est en anglais ?

Merci

Pat

[carden752]

Bonjour,

Il faut debugger et faire par exemple un debug.print sur jf.categories pour trouver la catégorie à la place de

Code :

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

1
2
3
If jf.Categories = "Congé (Jour de)" Then
    jf.Delete
    End If

ecrire

Code :

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

  debug .print   jf.Categories

Ensuite une fois que tu as trouvé, tu remplaces dans la procédure initial "Congé (jour de)"

[patch2007]

Merci

Pat