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":
Mais ça ne fonctionne pas. Quelqu'un peut-il m'aider ?
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
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![]()
Partager