Bonjour à tous,
J'ai besoin de votre aide sur un code en particulier que quelqu'un ma gentillement réalisé.
Ce code a pour effet de prendre un mot dans une cellule (B2) puis de faire un rechercher/remplacer de ce mot sur un document word deja ouvert (et donc le nom serait indiqué en D2).
Sauf que j'aimerai aujourd'hui que ce rechercher/remplacer ait lieu sur tous les documents word déjà ouverts (et peu importe leur nom).
Est-ce possible en modifiant ce code ? Et si oui comment ?
Merci énormément !!
J'ai besoin de votre aide sur un code en particulier que quelqu'un ma gentillement réalisé.
Ce code a pour effet de prendre un mot dans une cellule (B2) puis de faire un rechercher/remplacer de ce mot sur un document word deja ouvert (et donc le nom serait indiqué en D2).
Sauf que j'aimerai aujourd'hui que ce rechercher/remplacer ait lieu sur tous les documents word déjà ouverts (et peu importe leur nom).
Est-ce possible en modifiant ce code ? Et si oui comment ?
Merci énormément !!
Sub CopRemp()
Dim Mot As String, Doc As String, AppWord As Object, DocWord As Object
Mot = Range("B2").Value
Doc = Range("D2").Value
On Error GoTo Err1
Set AppWord = GetObject(, "Word.Application")
Set DocWord = AppWord.Documents(Doc)
DocWord.Activate
With AppWord.Selection
.WholeStory
.Find.ClearFormatting
.Find.Replacement.ClearFormatting
With .Find
.Text = "xxx"
.Replacement.Text = Mot
.Forward = True
.Wrap = 2
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
AppWord.DisplayAlerts = 0
.Find.Execute Replace:=2
AppWord.DisplayAlerts = -1
End With
On Error GoTo 0
Exit Sub
Err1:
MsgBox "Erreur"
End Sub