Excel VBA=> erreur "index de la matrice en dehors des limites"

Version imprimable

09/01/2022, 14h23
barbiturix

Excel VBA=> erreur "index de la matrice en dehors des limites"

Bonjour à tous,

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)

Code:

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. Ça serait top
10/01/2022, 03h08
Jean-Philippe André

Salut,

Il faut savoir que lorsque tu as cette erreur, c'est que le VBA ne trouve pas l'objet dont tu utilises l'indice.

Ici, si Folders(1) génère une erreur, il faut regarder 2 choses :
- olFolderCalendar est une constante Outlook, ce qui implique que tu as bien la libraire Outlook cochée (si ce n'est pas le cas, et que tu as omis Option Explicit, la valeur de olFolderCalendar sera de 0
- mettre un espion sur ton bloc namespaceOutlook.GetDefaultFolder(olFolderCalendar) pour t'assurer que le ou les dossiers existent comme tu t'y attends.
15/01/2022, 19h14
barbiturix

Bonjour Jean Philippe, merci pour ta réponse rapide. En déplacement toute la semaine mon retour se fait maintenant:

la bibliothèque d'objet outlook est bien active
la mise en place d'un espion retourne <Variable objet ou variable de bloc With non définie>

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
15/01/2022, 22h23
Jean-Philippe André

OK, tu peux nous donner les lignes précédentes, notamment celles qui permettent d'Affecter une valeur à ton workspace stp ?

Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
'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 source
  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(1)

De mon côté j'ai vu que le code fonctionnait comme ci-dessus sur un autre PC. J'ai l'impression que l'erreur semble (aussi?) liée aux calendriers d'outlook.
Avec cette hypothèse je n'arrive pas à déterminer où sont les différences entre les 2 ordinateurs et leur système pour faire en sorte que le ode fonctionne...

Je continue à chercher ...

16/01/2022, 19h56
Qwazerty
Salut

Tu peux tenter de mettre un espion sur l'objet (sélectionne le texte et clique droit... ajouter espion. Ou faire un glisser déposé si la fenêtre espion est déjà ouverte)
Code:

1 2 namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders
Tu pourras naviguer dans les propriétés, peut-être y trouveras tu la solution.

Mais le problème vient peut-être d'un cran avant, il faudrait mettre l'objet retourné par

Code:

namespaceOutlook.GetDefaultFolder(olFolderCalendar)

Dans une variable, si GetDefaultFolder retourne "Nothing"...

++
Qwaz