Discussion :

[bifconsult]

Bonjour,

J'ai cherché sur le forum et j'ai trouvé des bribes de réponses, mais je n'arrive pas à écrire avec la syntaxe correcte. Pourriez-vous m'aider ?

Dans le fichier "TEST1.xlsm", j'ai écrit un bout de code (une boucle avec a = a+1). Juste pour le test.

J'aimerais remplacer le "a=a+1" par "a=a+I". J'ai donc écrit ce bout de code dans le fichier "TEST2.xlsm":

Code :

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

1
2
3
4
5
sub test()
Dim wb1 As Workbook
Set wb1 = Workbooks.Open("TEST1.xlsm")
wb1.VBProject.VBcomponents.Item(1).CodeModule.ReplaceLine 3, "a=a+I"
end sub

Mais ça ne fonctionne pas. Quelqu'un peut-il m'aider ?

PS: question subsidiaire: line 3 est égale à la ligne de code (qui contient un écrit) numéro 3 ou la ligne 3, en comptant les éventuels espaces entre lignes ?

Merci

[Jean-Philippe André]

salut,

tu peux prendre exemple sur le code issu de la
http://access.developpez.com/faq/?pa...pCodebddFermee

[fring]

Bonjour,

un autre exemple un peu plus "light"
http://silkyroad.developpez.com/VBA/...cEditor/#LIV-C

[bifconsult]

Ah ben oui, je cherchais ça mais j'avais pas trouvé.

Merci !