Discussion :

[Master_x_99]

Bonjour

Je cherche à savoir s'il est possible de modifier le code d'une macro commande avec une autre macro.

C'est à dire de faire de modifier un mot par une autre?

J'ai fait quelques recherches en ce sens mais je n'ai rien trouvé de concluant.


Merci de vos réponses

[Invité]

Bonjour

As-tu ce tuto : http://silkyroad.developpez.com/VBA/VisualBasicEditor/

C'est une bonne base de départ.

Philippe

[Master_x_99]

J'ai tenté quelques manipulation avec le code qui me permet de modifier un mot dans des macros.

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
Sub RemplacementMotDansProcedure()
    'Nécéssite d'activer la référence
    '"Visual basic For Application Extensibility 5.3"
    '
    Dim Ancien As String, Nouveau As String, Cible As String
    Dim VBComp As VBComponent
    Dim i As Integer
    Dim Wb As Workbook
 
    Set Wb = Workbooks("NomClasseur.xls")
 
    Ancien = "Feuil1"
    Nouveau = "Feuil3"
 
    For Each VBComp In Wb.VBProject.VBComponents
        For i = 1 To VBComp.CodeModule.CountOfLines
            Cible = VBComp.CodeModule.Lines(i, 1)
            Cible = Replace(Cible, Ancien, Nouveau)
            VBComp.CodeModule.ReplaceLine i, Cible
        Next i
    Next VBComp
End Sub

Cette partie de code me donne des problèmes

Code :

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

For Each VBComp In Wb.VBProject.VBComponents

Erreur d'exécution 1004

VbComp=Nothing

WB.VbProject.VbComp...=<La methode 'VbProject' de l'objet_Workbook à échoué

J'ai beau chercher je ne sais que faire.