Modifier une macro complémentaire par macro

Version imprimable

11/05/2012, 18h33
jpclabaux

Modifier une macro complémentaire par macro

Salut,

J'ai développé une macro complémentaire qui permet, entre autre, de mettre en forme des données issues de source diverses.
Pour chaque source de données le traitement est différent. Dans ma macro complémentaire j'ai donc un module par source de données.
Si on ajoute une nouvelle source de données, je développe une nouvelle macro que j'ajoute dans un nouveau module de ma macro complémentaire.
J'aimerai permettre aux utilisateurs d'ajouter automatiquement ces nouveaux modules dans la macro complémentaire en important le module que je lui envoi ceci afin de m'éviter de repasser sur chaque poste. Pour ça j'ai développé une option de menu pour importer un module. Je suis capable d'importer dans un classeur donné mais pas dans une macro complémentaire.
Est-ce possible?

Merci d'avance,
Jean

Bonjour,

Le code de ton nouveau module dans 1 fichier LeCode.txt situé dans le même repertoire que ta macro complementaire qui s'appelle ModifCodeXLA.xlam

Les noms de fichier sont a adapter a ta config.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AjoutCodeXLA()
    Dim i As Integer, LeNom As String, LeFile As String
    For i = 1 To AddIns.Count
        If AddIns(i).Name = "ModifCodeXLA.xlam" Then Exit For
    Next i
    LeNom = AddIns(i).Name
    With Workbooks(LeNom)
        .IsAddin = False
        .Activate
        LeFile = "LeCode.txt"
        Application.ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & LeFile & """)")
        .IsAddin = True
        .Save
    End With
End Sub

ctac

14/05/2012, 19h59
jpclabaux

Salut ctac_,

Merci pour ton aide.
Le code s'exécute bien, un module est créé dans ma macro complémentaire mais il est vide. Il ne semble pas importer le contenu de la du .txt.
J'ai essayé de remplacer la variable LeFile par le nom du fichier txt mais en faisant ça le module n'est même plus créé.
As-tu une idée?

Bonjour,

Essayer comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub AjoutCodeXLA()
    Dim LeFile As String
    LeFile = "LeCode.txt"
    If Dir(LeFile) = "" Then
        MsgBox "pas de fichier"
        Exit Sub
    End If
    With Workbooks("ModifCodeXLA.xlam")
        .IsAddin = False
        .Activate
        Application.ExecuteExcel4Macro ("VBA.INSERT.FILE(""" & LeFile & """)")
        .IsAddin = True
        .Save
    End With
End Sub

Cordialement

ctac

Bon, finalement j'ai changé mon fusil d'épaule.
Je lis un fichier texte qui contient mes lignes de code et je les écris dans mon module. Comme ceci

Code:

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
Sub insertion_module()
 
    Dim i, nbLig As Integer
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f, lecStr As String
 
    For i = 1 To Application.VBE.VBProjects.Count
        If Application.VBE.VBProjects(i).BuildFileName <> "VBAProject.DLL" Then
                'Modifier le module Préparation_donnees
                With Application.VBE.VBProjects(i).VBComponents("Preparation_donnnees").CodeModule
                    LiDeb = .CountOfLines + 2
                End With
                'Le fichier source
                Set fs = CreateObject("Scripting.FileSystemObject")
                Set f = fs.OpenTextFile("C:\Users\Jean\Desktop\macro.txt", ForReading, TristateFalse)
                nbLig = 1
                Do While f.AtEndOfStream <> True
                    'Lecture du fichier source et écriture dans le module
                    lecStr = f.ReadLine
                    With Application.VBE.VBProjects(i).VBComponents("Preparation_donnnees").CodeModule
                        .InsertLines LiDeb + nbLig, lecStr
                    End With
                    nbLig = nbLig + 1
                Loop
                f.Close
            End If
        End If
    Next
    MsgBox "La nouvelle macro de préparation des données est maintenant intégrée."
 
End Sub

Ça marche mais je bloque quand je veux ajouter une option de menu pour appeler cette macro. Pour ajouter une nouvelle option il faut que je connaisse le numéro de la dernière option existante pour prendre le numéro suivant pour ma nouvelle option. Et je ne sais pas comment lire ligne à ligne le contenu d'une macro pour repérer le numéro en question.
Une suggestion?

22/05/2012, 17h27
jpclabaux

Je n'ai pas trouvé de solution pour lire les lignes d'une macro.
J'ai utilisé une astuce pour incrémenter mes numéros d'option. Je prends le nombre de lignes de la macro (CountOfLines) comme ça je suis sûr que mon numéro d'option sera toujours unique.

Je rajoute un post à cette dicussion pour aider.

J'ai modifié une macro existante en faisant comme suit:

Code:

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
        'modif de macro
'je parcourt la collection de projets VBA
        For i = 1 To Application.VBE.VBProjects("VBAProject").Collection.Count
            'Si je trouve le code vba du fichier que je veux modifier
            If Application.VBE.VBProjects("VBAProject").Collection(i).BuildFileName = monchemin & "\" & Left(Workbooks(monfic).Name, malen - 4) & ".DLL" Then
 
                'je parcourt toutes les lignes du module de la feuille1
                For j = 1 To Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.CountOfLines
                    'ici ma condition pour trouver les lignes qui posent probleme
                    If Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.Lines(j, 1) = "                .Cells(i, 14) = refrempl" And Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.Lines(j + 1, 1) = "                .Cells(6, 15) = nofact"  Then
 
 
'je supprime les lignes qui étaient fausses                        
                        Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.DeleteLines (j + 2)
                        Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.DeleteLines (j + 1)
 
 
'et j'ajoute les lignes corrigées
                        Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.InsertLines j + 1, "                .Cells(i, 15) = nofact"
                        Application.VBE.VBProjects("VBAProject").Collection(i).VBComponents("feuil1").CodeModule.InsertLines j + 2, "                .Cells(i, 16) = Datexpe"
 
                    Exit For
                    End If
                Next
 
            End If
        Next

Bon code à tous
Christophe

30/07/2012, 11h30
kiki29

Salut, voir également ici