Bonjour,

j'ai créé une petite macro afin d'ouvrir plusieurs fenêtres avec des vues différentes au lancement de Outlook. Cela fonctionne très bien pour un calendrier sur 14 jours, une liste de tâches, mais je coince sur un point pour un calendrier avec affichage 1 jour. Je voudrais enlever la liste de tâche qui se trouve sous le calendrier, la 'daily task list', mais je ne trouve pas.

Quelqu'un a-t-il une idée ?

La partie du code pour l'affichage du calendrier 1 jour avec la Todo Bar:

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
Dim myExplorers As Outlook.Explorers
Dim myOlExpl As Outlook.Explorer
Dim myFolder As Outlook.Folder
Dim myCalView As Outlook.CalendarView
 
Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
Set myOlExpl = myExplorers.Add(myFolder, olFolderDisplayNormal)
 
myOlExpl.ShowPane olToDoBar, True
myOlExpl.Display
myOlExpl.WindowState = olMaximized
 
Set myCalView = myOlExpl.CurrentView
myCalView.CalendarViewMode = olCalendarViewDay
myCalView.Apply
Merci d'avance poru votre aide.

Fred