Excel : récupérer le calendrier du compte actif d'outlook
J'avais un macro qui fonctionnait bien. Elle crée des rendez-vous dans outlook365 en fonction des données d'un classeur excel.
Depuis que j'ai réordonné les calendriers sous outlook365, j'obtiens le message d'erreur "index de la matrice en dehors des limites" à l'exécution de la ligne de code (qui est juste après le définition des variables)
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders(1)
J'ai tourné le problème dans tous les sens, sans arriver à revenir à un code qui fonctionne, ...
Certains sites d'aide font référence à l'importation de données à partir de plusieurs tables, je pense que je fais fausse route.
J'aurais besoin d'aide sur comment avancer sur ce point bloquant. Ca serait top
bonjour,
On dirait qu'il te manque une référence en VBA,
tu peux essayer en remplaçant olfoldercalendar par 9 dans cette instruction
sinon merci de mettre la totalité de ton code d'envoi de mail
Bonjour H2SO4, semaine en extérieur chargée, difficile de répondre avant,
Voici le code qui jusqu'à l aligne qui donne le message d'erreur
'procedure permettant d'ajouter un rdv dans un calendrier outlook
Sub NewCalendrierAjoutRdV_ds_Calendrier_NIOLON()
'declaration des variables
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder
Dim i As Integer, plateforme As String
Dim C8, C9, C10, C11, C12, C13, D15, D31, E15, F15, I1, J1, K8 As String
Dim A8, A9, A10, A11, A12, A13, H13 As String
Dim RetourPrestataire As String
Dim DebSejou As String
Dim FinSejour As String
Dim NbNuit As Integer
'gestion d'erreurs
On Error GoTo Err_Execution
'determination quelle origine
For i = 20 To 23
If Cells(i, 3).Value <> "" Then
plateforme = Cells(i, 2).Value
Exit For
Else:
plateforme = "direct"
End If
Next i
'on cree ensuite les objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")
'definit le dossier calendrier
'GetDefaultFolder renvoit le calendrier du compte actif
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders(7)
Pour info, en remplaçant olFolderCalendar par 9 j'obtiens la même erreur, ...
J'ai essayé dans outlook de mettre un compte exchange par défaut à la place de IMPA/SMTP, cela n'as pas eu d'effet non plus...
Je continue mes recherches et reste à l'écoute de toutes les pistes