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