Discussion :

[jpclabaux]

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

[ctac_]

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 :

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

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

[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?

[ctac_]

Bonjour,

Essayer comme ça :

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
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

[jpclabaux]

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 :

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
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?

[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.