Erreur à la création d'un module [Résolu]

[defluc]

Bonjour à tous,

Cela fait trois jours que je sèche sur la source ci après.

Code :

1
2
3
4
5
6
7
Private Sub InsertMacro(WbkTarget As Workbook) 
  Dim  vbCompon As VBComponent
    Set vbCompon = WbkTarget.VBProject.VBComponents.Add(1)
    vbCompon.Name = "TestDeplace"
    With vbCompon.CodeModule
      .InsertLines 1, "Declare Function GetAsyncKeyState Lib ""user32.dll"" (ByVal vKey As Long) As Integer"
    End With

L'affectation de vbCompon ne se fait pas puisque l'instruction qui suit le Set déclenche l'erreur 91 : Variable objet ou variable de bloc With non définie

Par contre, le code suivant ne pose aucun problème

Code :

1
2
3
4
  With WbkTarget.VBProject.VBComponents("Feuil1").CodeModule
    l = 1
    .InsertLines l, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
...

N'ayant trouvé aucune solution sur la toile, Je m'adresse à vous.

Merci d'avance

[BlueMonkey]

Bonsoir,

Si le niveau de sécurité des macros le permet
(sous XLS2003 Outil -> Macro -> Securité , ; onglet <Editeurs Approuvés> ; sélectionner Faire confiance au Projet Visual Basic)

Je pense que le problème est que le module TestDeplace existe déjà dans la feuille.

Un code de ce type la devrait corriger ce problème :
moduleName : étant le nom du module dans lequel le code doit être inséré (dans l'exemple précédant TestDeplace)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub InsertMacro(WbkTarget As Workbook, moduleName As String)
    Dim vbCompon As VBComponent
 
    Set vbCompon = GetModule(WbkTarget, moduleName)
    If vbCompon Is Nothing Then
        Set vbCompon = CreateModule(WbkTarget, moduleName)
    End If
 
    With vbCompon.CodeModule
          .InsertLines 1, "Declare Function GetAsyncKeyState Lib ""user32.dll"" (ByVal vKey As Long) As Integer"
    End With
End Sub

CreateModule : Créé le module dans le classeur

Code :

1
2
3
4
Private Function CreateModule(WbkTarget As Workbook, moduleName As String) As VBComponent
        Set CreateModule = WbkTarget.VBProject.VBComponents.Add(vbext_ct_StdModule)
        CreateModule.Name = moduleName
End Function

GetModule: Retourne le module contenu dans un classeur (s'il existe). Nothing sinon

Code :

1
2
3
4
5
6
7
8
9
10
Private Function GetModule(WbkTarget As Workbook, moduleName As String) As VBComponent
    Dim vbCompon As VBComponent
 
    For Each vbCompon In WbkTarget.VBProject.VBComponents
        If vbCompon.Name = moduleName Then
            Set GetModule = vbCompon
            Exit For
        End If
    Next
End Function

[defluc]

Comme l'insertion dans "Feuil1" fonctionnait, j'ai déplacé le code posant problème après et, oh miracle, cela marche.
Pourquoi ? mystère.
Je marque donc le sujet comme résolu.
Mais au préalable, je te remercie pour ta réponse et surtout pour la fonction très utile «GetModule».

Bon week-end