Discussion :

[droid]

Salut,

Je me tourne vers vous car j'ai un problème dont je n'arrive pas à trouver la solution.

J'ai une macro qui permet de générer des fichiers et des mails qui fonctionnent très bien quand l'éditeur VBA est ouvert.
Mais quand ce dernier est fermé, la macro plante et me renvoi une erreur "l'indice n'appartient pas à la selection".

Pendant la procédure de generation de fichiers, j’implémente dans ces derniers une macro.
Je ne vois pas d'où ça peut venir, il me semble que les accès sont les mêmes que l'editeur soit ouvert ou non.

Avez-vous une idée d'où cela peut venir, s'il vous plait ?

Edit : écrire le problème m'a permis que trouver, ça vient de l'implémentation d'une macro dans les fichiers générés, reste à trouver une solution.

[Jean-Philippe André]

Hello,

idéalement, si tu nous fournis un bout du code qui plante, on devrait pouvoir comprendre exactement de quoi tu parles

[droid]

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
Private Sub addVBA(workbookName As String)
    Dim y As Integer
 
 'plante à la ligne suivante
    With ActiveWorkbook.VBProject.VBComponents(Worksheets(1).CodeName).CodeModule
        y = .CountOfLines
        .InsertLines y + 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
        .InsertLines y + 2, "If Target.Count > 1 Then"
        .InsertLines y + 3, "Exit Sub"
        .InsertLines y + 4, "End If"
        .InsertLines y + 5, "Dim Plage As Range"
        .InsertLines y + 6, "Set Plage = Range(""K:K"")"
        .InsertLines y + 7, "If Not Application.Intersect(Target, Plage) Is Nothing Then"
        .InsertLines y + 8, "If StrComp(Target, ""fait le"", vbTextCompare) = 0 Or StrComp(Target, ""RDV le"", vbTextCompare) = 0 Or StrComp(Target, ""pas prêt le"", vbTextCompare) = 0 Then"
        .InsertLines y + 9, "CalendarUF.Show"
        .InsertLines y + 10, "End if"
        .InsertLines y + 11, "End if"
        .InsertLines y + 12, "End sub"
    End With
 
    ActiveWorkbook.VBProject.VBComponents.Import "C:\Temp\macroRelance\calendar.frm"
End Sub

Le bug vient, apparemment, du fait que j'insere une macro alors que mon projet est protéger par un mot de passe.

Edit : meme sans protection, il bug.
En pas à pas, aucun bug ...