Discussion :

[tnarol]

Salut,

J'aimerais savoir s'il existe des solutions permettant d'extraire et de réinjecter le code source d'un document office (par exemple des modules Excel en VBA) afin d'en garder un historique de version sous forme texte (support des diffs notamment).

Merci

[Lou Pitchoun]

Salut,

Un super article sur l'éditeur.

Tu y trouveras ce que tu cherches.

[tnarol]

Merci c'est intéressant mais je remarque que la méthode proposée n'est pas générique dans le sens où il faut nommer les composants qu'on veut exporter ou importer.

J'aimerais trouver une solution ou ça se fait exhaustivement quel que soit le classeur. Il serait envisageable de généraliser le code présenté à condition de pouvoir lister tous les VBComponents présents dans un classeur et obtenir leur nom et leur type... Je vais regarder ça mais j'espère toujours qu'une bonne âme va me dire que ça existe déjà.

[Lou Pitchoun]

Le code ci dessous liste tous les modules et codes présents dans le classeur (que ce soit dans un module ou une feuille) :

Code :

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

1
2
3
4
5
6
7
8
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            ' si l'objet contient du code, on affiche son nom
            If .Item(i).CodeModule.CountOfLines > 0 Then
                Debug.Print .Item(i).Name
            End If
        Next
    End With

.. directement tiré (et légèrement modifié) de l'article.