Discussion :

[nanousik]

Rebonjour,

Deux fois en une journée, si il y a un quota de demandes je crois qu'il est épuisé


J'ai créer un outil avec différentes macros, des connexions à une base de données et pas mal de fonctions. Cet outil fonctionne parfaitement bien sur mes pcs, l'un sur windows 7 et l'autre sur windows vista.

Mais lorsqu'un collègue tente de lancer l'application sur son poste, l'application tourne mais un message s'affiche :
%%ERR Create_menu_ccs : L'indice n'appartient pas à la selection

Il suffit de cliquer sur ok, puis la macro continue de tourner. Mais ce message apparait plusieurs fois pendant l'exécution de la macro et je n'ai aucune idée de la raison pour laquelle il apparait.

Si l'un d'entre vous a une petite idée, je serais sauvée

Si vous avez besoin d'information complémentaire, n'hésitez pas

[enernaej]

Bonjour,

Oui, c'est un peu court. Peut-on avoir le code de la macro incriminée pour comprendre l'erreur ?

Merci.

[nanousik]

Voila une partie de la macro. Si besoin je peux joindre le classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
datedeb = VBA.Date - 30
            indicea = 5
            indiceb = 6
            'on consulte la semaine précédente
            nosem = nosem - 1
 
            Call log_tel(annee, agent, periode, nosem)
 
            While Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xlsm") = "" And Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xls") = ""
                If nosem - 1 = 0 Then
                    nosem = 52
                    annee = annee - 1
                Else
                    nosem = nosem - 1
                End If
            Wend
 
            ext = ".xlsm"
 
            'Controle si le fichier est déja ouvert
            ok = False
            nb = Workbooks.Count
            For m = 1 To nb
                If Workbooks(m).Name = "S" & nosem & "_" & annee & ".xlsm" Then
                    ok = True
                    ElseIf Workbooks(m).Name = "S" & nosem & "_" & annee & ".xls" Then
                    ok = True
                    ext = ".xls"
                End If
            Next m
 
 
            'ouverture du fichier de la semaine sem ou attribution du fichier à la variable monclasseur
            If ok = True Then
                Set monclasseur = Workbooks("S" & nosem & "_" & annee & ext)
                Else
                If Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ".xlsm") = "" Then
                    ext = ".xls"
                End If
                If Dir(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext) <> "" Then
                    SetAttr fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext, vbNormal
                    Set monclasseur = Workbooks.Open(fichier & anim & "\" & agent & "\archives\S" & nosem & "_" & annee & ext)
                End If
            End If
 
            'attribution de la feuille F1 du classeur de la semaine à la variable classeur
            Set mafeuille = monclasseur.Worksheets(feuille)
            Set classeur = Workbooks(nom_outil)
            accueil = "accueil"
 
 
 
            'la variable d permet de parcourir le fichier de la semaine
            d = 15
 
            'Parcours la taille du tableau d'activité
            While mafeuille.Cells(d, 2).Value <> "Ne pas Utiliser la Ligne 15"
                d = d + 1
            Wend
 
            'Ajoute 9 pour passer à la partie problèmes rencontrés, remarques, suggestions
            d = d + 9
            'm = 10
            Dim cellule As Range
            For Each cellule In classeur.Sheets(accueil).Range(Cells(7, 7), Cells(10, 9))
                cellule.Font.Bold = True
                cellule.Font.Size = 12
            Next
 
            With classeur.Sheets(accueil)
                .Cells(7, 7).Value = "Nombre de jours en SOS"
                .Cells(7, 8).Value = mafeuille.Cells(11, 13).Value
                .Range(.Cells(9, 7), .Cells(9, 9)).Merge
                .Cells(9, 7).Value = "Problèmes - Remarques - Suggestions"
                .Cells(10, 7).Value = "Thème"
                .Cells(10, 8).Value = "Jour"
                .Cells(10, 9).Value = "Texte"
            End With
 
            'Numéro de textBox
            nbtxt = 1
            While mafeuille.Cells(d, 5).Value <> ""
                'Saisie de la partie problèmes rencontrés, remarques, suggestions
                'Controle si le thème est déja saisi
                l = 10
                exist = False
 
                While ((classeur.Sheets(accueil).Cells(l, 7) <> "") And exist = False)
                    If classeur.Sheets(accueil).Cells(l, 7) = mafeuille.Cells(d, 4) Then
                        exist = True
                        Else
                        l = l + 1
                    End If
                Wend
 
                If exist = True Then
 
                    'Avance jusqu'à la dernière ligne contenant le thème
                    While classeur.Sheets(accueil).Cells(l, 7) = mafeuille.Cells(d, 4)
                        l = l + 1
                    Wend
 
                    With classeur.Sheets(accueil)
                        'insérer une ligne à la ligne l
                        .Rows(l).Insert
                        'insertion du numéro de semaine, du jour et du texte à la ligne l
                        .Cells(l, 7).Value = mafeuille.Cells(d, 4)
                        'jour
                        .Cells(l, 8).Value = mafeuille.Cells(d, 3)
                        'texte
                        If mafeuille.Cells(d, 5) <> "a" Then
                            .Cells(l, 9).Value = mafeuille.Cells(d, 5)
                            ElseIf mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value <> "" Then
                            .Cells(l, 9).Value = mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value
                        End If
                    End With
 
                    Else
                    With classeur.Sheets(accueil)
                        'thème
                        .Cells(l, 7).Value = mafeuille.Cells(d, 4)
                        'jour
                        .Cells(l, 8).Value = mafeuille.Cells(d, 3)
                        'texte
                        If mafeuille.Cells(d, 5) <> "a" Then
                            .Cells(l, 9).Value = mafeuille.Cells(d, 5)
                            ElseIf mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value <> "" Then
                            .Cells(l, 9).Value = mafeuille.OLEObjects("TextBox" & nbtxt).Object.Value
                        End If
                    End With
                End If
                d = d + 1
                nbtxt = nbtxt + 1
            Wend
 
            'cumul pour le suivi du sos
            l = 10
            While classeur.Sheets(accueil).Cells(l, 7) <> ""
                l = l + 1
            Wend

[Theze]

Bonjour,

Si le message s'affiche plusieurs fois, l'erreur est probablement à l'intérieur d'une boucles "While-Wend". Je pense que pour l'identifier, il te faut parcourir le code en pas à pas ou mettre des points d'arrêt à différents endroits du code et de faire tourner pour voir sur quoi les erreurs se déclenchent et surtout dans quelle partie du code.

Hervé.

[nanousik]

Je pensais aussi que ça venait d'une erreur dans une boucle mais bizarrement il n'affiche pas toujours le message le même nombre de fois. Il peut l'afficher 2 fois avant que la macro soit terminée comme il peut me l'afficher 10 fois.

[nanousik]

Est-il possible que ce message apparaisse lors d'un conflit en le classeur vba excel et un autre logiciel qui serait présent sur les postes de travail de mes collègues mais pas sur les miens?

Si oui qu'elle pourrait être la solution?