Sub ModifierTVA()
Dim chemin$, fich$, wb As Object, d As Document
Application.ScreenUpdating = False
chemin = ThisDocument.Path & "\"
'---ouverture des fichiers Word---
fich = Dir(chemin & "*.doc*") '1er fichier du dossier
While fich <> ""
If fich <> ThisDocument.Name Then _
Documents.Open chemin & fich
If Documents(fich).InlineShapes.Count Then _
Documents(fich).InlineShapes(1).Activate
fich = Dir 'fichier suivant
Wend
'---remplacements dans Excel---
For Each wb In GetObject(, "Excel.Application").workbooks
With wb.sheets(1)
.[IV65536] = "*1,07" 'évite l'alerte si pas trouvé
.[A1:U231,IV65536].Replace "~*1,07", "*1,1", 2
.[IV65536] = "*1.07" 'évite l'alerte si pas trouvé
.[A1:U231,IV65536].Replace "~*1.07", "*1.1", 2
.[IV65536] = ""
End With
Next
'---enregistrement et fermeture des fichiers---
For Each d In Documents
d.Save
If d.Name <> ThisDocument.Name Then d.Close
Next
Application.ScreenUpdating = True
End Sub