Pb lecture code module!

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:

---

Classeur.VBProject.VBComponents(Module).CodeModule

---

Merci d'avance pour votre réponse.

mumu27!

Bonjour mumu27,

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

Code:

---

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:

---

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

---