vba sur excel

[Bretagne35]

Bonjour,
Je voudrais effectuer une recherche et un remplacement de texte sur un fichier word à partir d'un fichier excel à l'aide du langage vba. Ce programme est lancé par une macro à l'aide d'un bouton.
Merci d'avance pour vos explications.

 

[MichelXld]

Re : vba sur excel

bonjour

Tu peux tester

Sub RemplacerMotDocWord()
    'Nécessite d'activer la référence
    '"microsoft Word xx.x Object Library"
    
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    
    Set wordApp = New Word.Application
    wordApp.Visible = True
    Set wordDoc = wordApp.Documents.Open("C:\NomDocument.doc")
    
    With wordDoc.Content.Find
        .ClearFormatting
        .Text = "MotCible"
            With .Replacement
                .ClearFormatting
                .Text = "Nouveau mot"
            End With
        .Execute Replace:=wdReplaceAll
        .Forward = True
        .Wrap = wdFindContinue
    End With
    
    'wordDoc.Save
End Sub

Bonne journée
MichelXld