Discussion :

[rosemary_antoine]

Voici ce que j'ai fait pour trouver un motif date dans un fichier word et le remplacer via une inputBox. Je le poste en résolu pour ceux que ca intéresse... Je précise que je suis débutant...

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
Sub date_rempla2()
'des infos sur recherche de motifs sur http://sepia.developpez.com/office/word/rechercherremplacer/
 
madate$ = WordBasic.[InputBox$]("Rentrer la nouvelle date au format JJ.MM.AAAA", "Rechercher / remplacer les dates    :D")
ActiveDocument.Select
 
With Selection.Find
    'cherche tous les formats de date du motif: j.mm.aaaa ou jj.mm.aaaa
    .Text = "([0-9]{1;2}).([0-9]{2}).([0-9]{4})"
    .ClearFormatting
    .Replacement.Font.Color = wdColorRed 'texte mis en rouge
    .Replacement.Text = madate$ 'remplace par la date entrée en InputBox
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
 
End With
End Sub

[Sepia]