Microsoft 365 Mettre une alerte dans un calendrier autre que la calendrier par défaut de outlook

[Zifox]

Bonjour,
Je voudrais à d'adapter le code ci-dessous pour choisir un calendrier précis et non celui par défaut. j'ai essayé différentes solutions sans succès ...
Merci d'avance.

Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
 Set Rdv = OkApp.CreateItem(olAppointmentItem)
          
            With Rdv
                .MeetingStatus = olMeeting
                .Subject = "texte " & ComboBox1
                .Body = ComboBox1
                .Location = "là"
                .Start = TextBox1 & " " & TextBox2 & ":00"
                .End = TextBox1 & " " & TextBox3 & ":00"
                .ReminderMinutesBeforeStart = 1440 * 7 ' Une semaine avant
                .Save
            End With
      
        Set OkApp = Nothing

 

[Lolote83]

Bonsoir Zifox,
Voir le sujet dans son intégralité ici
https://www.excel-downloads.com/thr...rtage-via-excel-macro.20044983/#post-20329616
puis au post#8 ou j'ai finalement trouvé et donné ma solution

Tu devais y arriver
@+ Lolote83

 

[Zifox]

Bonsoir Zifox,
Voir le sujet dans son intégralité ici
https://www.excel-downloads.com/thr...rtage-via-excel-macro.20044983/#post-20329616
puis au post#8 ou j'ai finalement trouvé et donné ma solution

Tu devais y arriver
@+ Lolote83

Merci bcp demain j’essaye cela !!