Discussion :

[skorpio]

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
Sub creationModule()
    'Nécéssite d'activer la référence
    '"Visual basic For Application Extensibility 5.3"
    '
    Dim Wb As Workbook
    Dim VBComp As VBComponent
    Dim X As Integer
 
    'Définit le classeur cible
    Set Wb = Workbooks("Classeur1.xls")
 
    'Ajoute un module standard dans le classeur
    Set VBComp = Wb.VBProject.VBComponents.Add(1)
    'Renomme le module
    VBComp.Name = "NouveauModule"
 
    'Ajoute une macro dans le module
    With VBComp.CodeModule
        X = .CountOfLines
        .InsertLines X + 1, "Sub laMacro()"
        .InsertLines X + 2, "Range(""A1"").Value = ""Coucou"""
        .InsertLines X + 3, "End Sub"
    End With
End Sub

comment faire pour activer la référence Visual basic For Application Extensibility 5.3????

[Invité]

Bonjour

Comme toutes les références, dans l'éditeur VB, menu Outils/références, et tu le sélectionnes en cliquant dans la case.


Starec

[skorpio]

je suis parvenu a selectionner ce qu'il fallait maintenant

il y encore un autre message d'error : dans cette ligne de code

Code :

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

 Set VBComp = Wb.VBProject.VBComponents.Add(1)

c'est écrit que la méthode 'VBproject' de l'objet '_Workbook' a échoué