Discussion :

[mumu27]

Bonjour,

j'aurais souhaité lire le code de mes modules. Par exemple le lire ligne par ligne, afin peut-être de le mettre dans un String. En effet je pourrais alors en extraire les caractères qui m'intéressent à savoir "O:\". Je ne sais pas si je peux extraire directement les caractères intéressants ou s'il faut que je les transfère dans un String.

Je pars de ceci:

Code :

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

Classeur.VBProject.VBComponents(Module).CodeModule

Merci d'avance pour votre réponse.

mumu27!

[tototiti2008]

Bonjour mumu27,

Si tu veux récupérer tout le code du Module, je ferais un truc comme ça :

Code :

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

1
2
3
Dim Cod As String, nblign As Long
    nblign = Classeur.VBProject.VBComponents(Module).CodeModule.CountOfLines
    Cod = Classeur.VBProject.VBComponents(Module).CodeModule.Lines(1, nblign)

si c'est ligne par ligne, ce sera plutôt

Code :

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

1
2
3
4
5
Dim Cod As String, nblign As Long, i as long
    nblign = Classeur.VBProject.VBComponents(Module).CodeModule.CountOfLines
For i = 1 to nblign
    Cod = Classeur.VBProject.VBComponents(Module).CodeModule.Lines(i,1)
Next i