Bonjour
J'ai fait un peu le tour des discussions sur le sujet et je n'arrive pas à savoir pourquoi le texte ne se remplace pas comme prévu.
Voici la macro que j'utilise sous Excel :
Il ouvre bien le fichier New.txt, trouve bien "Original_text", mais reste bloqué dessus sans le remplacer ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Sub Text_Replace_Word() Dim Word_App As Object Dim Word_Doc As Object Set Word_App = CreateObject("Word.Application") Word_App.Visible = True Set Word_Doc = Word_App.Documents.Open("C:\Users\\New.txt") Text_Replace = "Replace_text" Text_Find = "Original_text" Word_App.Selection.Find.ClearFormatting Word_App.Selection.Find.Replacement.ClearFormatting With Word_App.Selection.Find .Text = Texte_Find .Replacement.Text = Texte_Replace .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Word_App.Selection.Find.Execute Replace:=wdReplaceAll End Sub
La macro ne bug pas.
Pouvez-vous m'aider svp ?
Tchuss
Benoit L
Partager