Bonjour,
Voilà mon problème, de mon tableau Excel j'arrive à ajouter un rendez-vous sur Mon calendrier, mais je n'arrive pas à le mettre sur un calendrier partagé nommé Paquis.
Voici le code que j'ai récupérer et qui marche sur mon calendrier.
'déclaration des variables
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder
'gestion d'erreurs
On Error GoTo Err_Execution
'on crée ensuite les objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
'définit le dossier calendrier
'GetDefaultFolder renvoit le calendrier du compte actif
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
'on crée un nouveau rendez-vous
Set oAppointment = DossierCalendrier.Items.Add
'on renseigne ensuite les principaux paramètres
With oAppointment
.Start = Application.Proper(cal1.Value) 'cal1 calendrier VBA d'un userform
.Duration = 600 'durée de rdv, en minutes
.Subject = "Protocole du " & ComboBox1.Value 'Sujet du rdv
.Body = "Charge de la cabine: " & TextBox8.Value & " Kg - Type d'installation: " & TextBox9.Value 'corps du texte de la réunion
.Location = TextBox4.Value & TextBox5.Value 'Lieu du rdv
'on sauvegarde et ferme
.Save
.Close (olSave)
End With
'Libération des variables.
Set oAppointment = Nothing
Set oOutlook = Nothing
Fin_Execution:
Exit Sub
Err_Execution:
MsgBox Err.Description, vbExclamation
Resume Fin_Execution
Vous trouverez ci-joint une capture de mes calendriers Outlook.
Par avance Merci