Regarde là, tu as une recherche en boucle dans Excel (à adapter pour Word en instanciant application, classeur et feuille de calcul)
Pour instancier les uns et les autres,
1 2 3 4 5 6 7 8
| Dim XlAppli
Dim XlCl
Dim Xlfl
Dim obj
Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
Set XlCl = XlAppli.Workbooks.Open("D:\xls\LeFichier.xls") '< le classeur
Set Xlfl = XlCl.Worksheets("feuil1") '< la feuille
Xlfl.Activate |
Ensuite, dans le code de l'url, tu remplaces
With F1.Range("B:B") 'plage de recherche
par
With Xlfl.Range("B:B") 'plage de recherche
Enfin, tu ajoutes le remplacement
Tu vires le "msgbox laligne" que tu remplaces par
C.value = Replace(c.value, LeMotFaux, LeMotVrai)
Essaie d'adapter, si tu n'y parviens pas, propose-nous ton code qu'on puisse l'arranger
A+
Partager