Bonjour,

je ne suis pas un grand connaisseur des macros et ci-dessous je vous transmets le code d'une macros dont le but serait de transmettre dans un calendrier spécifique dans Outlook ("Suivis de projets") les tâches qui ont été définies dans MS-Project. 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
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Public myOLApp As Outlook.Application
Sub Export_Msproject_Outlook()
Dim myTask As Task
Dim myItem As Outlook.AppointmentItem
 
 
Dim myNamespace As Outlook.NameSpace
 
  On Error Resume Next
  Set myOLApp = CreateObject("Outlook.Application")
 
  Set myNamespace = myOLApp.GetNamespace("MAPI")
 
  'Ne fonctionne pas !!!
  'Set myOLApp.ActiveExplorer.CurrentFolder = _
    myNamespace.GetDefaultFolder(olFolderCalendar).Folders("Suivis de projets")
 
 
  For Each myTask In ActiveSelection.Tasks
 
    Set myItem = myOLApp.CreateItem(olAppointmentItem)
    With myItem
      .Start = myTask.Start
      .End = myTask.Finish
      .Subject = myTask.Name & " (Suivi de Projet)"
      .Categories = myTask.Project
      .Body = myTask.Notes
      .Save
    End With
  Next myTask
 
End Sub
Avec ce code, cela crée les événements dans mon calendrier standard, alors que j'aiemrais que cela aille dans le calendier "Suivis de projets".
Dans Outlook, ce calendrier "Suivis de projets" se trouve dans le dossier "Mes Calendriers" et est au même niveau que le dossier "Calendier".

Est-ce quelqu'un saurait comment changer le calendrier par défaut afin que les tâches s'ajoutent dans le bon calendrier?

Par avance merci pour votgre aide.

Cédric