Ouvrir le calendrier Outlook sur une date sélectionnée.

[Mounss]

Bonjour à tous,

Encore une fois je fais appel à toutes vos connaissances

J'ai regardé sur le forum mais ne trouve pas une piste pour cette demande...

Je créé un petit programme en VBA Excel qui permet de voir la disponibilité de différents collègues les samedis de l'année.

J'aimerai pouvoir ouvrir les calendriers Outlook partagés pour pouvoir y fixer les RDV.

Voici la macro d'ouverture :

Private Sub Btnoutlook_Click()
  
    For occ = 0 To Textresult.ListCount - 1
            If Textresult.Selected(occ) = True Then
                    For y = 1 To 26
                        If Worksheets("Data").Cells(occ + 2, y) <> "" Then
                            calendarselect = Worksheets("Data").Cells(occ + 2, y)  'noms des Calendars
                            y = y + 30
                        End If
                    Next y
            End If
    Next
    
    
    Set ol = New Outlook.Application
    Set olns = ol.GetNamespace("MAPI")
    Set myRecipient = olns.CreateRecipient(calendarselect)
    myRecipient.Resolve
    If myRecipient.Resolved Then
       Set showfolder = olns.GetSharedDefaultFolder _
          (myRecipient, olFolderCalendar)
    End If
    showfolder.Display


End Sub

Ca fonctionne...

Cependant j'aimerais que le calendrier s'ouvre à la date sélectionnée dans mon Userform.

Connaitriez-vous le code pour faire ceci ?

Question Bonus : Sauriez-vous également comment empecher le plantage si le nom de calendar donné n'existe pas ou n'est pas partagé par l'utilisateur ?


Merci d'avance,

Bonne journée.

 

[Mounss]

Re : Ouvrir le calendrier Outlook sur une date sélectionnée.

Re bonjour tout le monde...

Personne n'a une petite idée ?

Je ne trouve toujours pas...

Merci d'avance.