Comment puis-je trouver et remplacer dans un autre document excel

Question

Je suis tring pour créer une macro (dans Excel) pour ouvrir une autre feuille de calcul Excel, faire une recherche-remplacer, puis enregistrez-le.

Je l'ai déjà réalisé cela avec un document Word comme ceci:

... 
Dim wrdDoc As Word.Document 
If wrdApp Is Nothing Then Set wrdApp = CreateObject("Word.Application") 
Set wrdDoc = wrdApp.Documents.Open(TemplateFilePath) 
... 

Call WordReplace(wrdDoc,"a","b") 

.... 

Private Sub WordReplace(wrdDoc As Word.Document, sFind As String, sReplace As String) 
    With wrdDoc.Content.Find 
    .Text = sFind 
    .Replacement.Text = sReplace 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
    .Execute Replace:=wdReplaceAll 
    End With 
End Sub 

J'ai crûment tenté de remplacer le mot « mot » avec « Excel » dans le code ci-dessus en vain.

Est-ce que quelqu'un peut me diriger dans la bonne direction s'il vous plaît?

Answer 1

Vous pouvez faire:

Sub a() 

Dim excDoc As Workbook 
.... 

Set excDoc = Workbooks.Open("c:\mata.xls") 
Call WordReplace(excDoc, "a", "b") 
.... 
End Sub 

Private Sub WordReplace(excDoc As Variant, sFind As String, sReplace As String) 

Dim sht As Worksheet 

For Each sht In excDoc.Worksheets 
    With sht 
     .Cells.Replace What:=sFind, Replacement:=sReplace, LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ 
     ReplaceFormat:=False 
    End With 
Next 
End Sub