Afficher l'agenda Outlook à une date précise

[eric13500]

Bonjour à toutes et tous !

Le sujet est dans le titre : j'effectue un suivi de ma facturation dans Excel et je souhaite pouvoir atteindre la date d'une facture dans mon agenda Outlook.

J'ai trouvé quelques lignes de codes qui expliquent certaines manipulations d'Outlook, mais je n'arrive pas à les adapter.

En fait, tous les codes que je trouve fonctionnent mais présentent deux caractéristiques qui ne me conviennent pas :

• Ils créent une nouvelle instance d'Outlook alors que je veux utiliser l'existante
• ils créent un nouveau rendez-vous alors que je veux afficher les rendez-vous d'une date donnée dans le format d'affichage actuel

En résumé, je souhaite juste gagner du temps en affichant d'un simple clic ma session Outlook sur l'agenda à la bonne page...

Dit comme ça, ça n'a pourtant pas l'air sorcier

Mais je n'y parviens pas !

Alors je remercie par avance toutes celles et ceux qui sauront m'apporter des éléments de réponse (ou pourquoi pas la réponse entière ?)

Dans l'attente, bien cordialement,
Eric.

[Philippe JOCHMANS]

Bonjour

Et si tu nous montrais le code que tu utilises, je pense que cela aiderait les membres du forum pour qu'ils puissent t'indiquer les lignes à modifier, non ?

Philippe

[eric13500]

Bonjour Philippe, et merci pour cette réponse rapide.

La raison pour laquelle je n'ai pas posté mon code est que je voulais laisser toute latitude à celle ou celui qui aurait une réponse à me fournir, ce dans le cas où une meilleure piste que celle que j'aborde existerait.

Puisque tu le demandes, voici néanmoins la procédure en question :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub AtteindreDateAgendaOutlook()
    Dim appOutlook As Object
    Dim Espace As Outlook.Namespace
    Dim Calendrier As Outlook.MAPIFolder
    Dim Evenement As Outlook.AppointmentItem
 
    'Instanciation des Objets
    Set appOutlook = GetObject("", "Outlook.Application")  ' J'espérais ici récupérer l'instance d'Outlook en cours et non en créer une nouvelle
    Set Espace = appOutlook.GetNamespace("MAPI")
    Set Calendrier = Espace.GetDefaultFolder(olFolderCalendar)
    Set Evenement = Calendrier.Items(Calendrier.Items.Count)    ' soit le dernier rendez-vous du calendrier. C'est ici que je voudrais sélectionner non pas un rendez-vous, mais plutôt définir la date à laquelle afficher le calendrier
 
    'Affichage
    Calendrier.Display  ' du calendrier. C'est là que je vois apparaître la nouvelle instance d'Outlook alors que je voulais simplement passer la fenêtre d'Outlook en premier plan.
    Evenement.Display   ' du rendez-vous sélectionné ci-dessus. Si la ligne précédente est passée en commentaire, affiche quand même le rendez-vous, mais même non affichée, il s'agit toujours d'une nouvelle instance comme le confirme la double entrée dans la liste des processus actifs
 
    'Vidage des instances
    Set appOutlook = Nothing
    Set Espace = Nothing
    Set Calendrier = Nothing
    Set Evenement = Nothing
End Sub

Les détails des problèmes que je rencontre sont en commentaires dans le code.

En faisant tourner cette procédure, on constate l'ouverture d'Outlook sur le calendrier puis l'ouverture du rendez-vous.
Au risque de me répéter, mais afin d'éviter toute erreur d'interprétation, je souhaite afficher le calendrier à une date précise et en utilisant le mode d'affichage en cours (semaine de travail).

Encore merci d'avance pour vos réponses !
Bien cordialement,
Eric.