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

  • Initiateur de la discussion Initiateur de la discussion Mounss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mounss

XLDnaute Nouveau
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 :
Code:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
461
Réponses
0
Affichages
1 K
Retour