recherche et remplacement de valeurs entre 2 fichiers

**follichon** · 03/11/2015, 18h30

Bonjour,

Apres avoir pu obtenir un code VBA pour Word qui est celui de la fonction pour chercher et remplacer du texte, j'aurais besoin d'aide pour le compléter pour ce que je veux faire.

Voici le principe simplifié pour l'explication de ce que je veux faire:

J'ai 2 fichiers Word. L'un (disons le n°1) contient une série telle que:

X=2
Y=4
Z=9
X=3

(Avec éventuellement des espaces entre les lignes)

Mon autre fichier (n°2) contient ceci:

X1=3
Y1=8
Z1=11
X2=1
Y2=7
Z2=10

Ce que je voudrais c'est lire les valeurs du fichier n°1 correspondant aux 'X' (donc ici 2 et 3). Ensuite je voudrais lire le fichier n°2 et remplacer les Xi (X1 et X2 dans mon exemple) par les valeurs des X du fichier n°1(donc avoir au final dans le fichier n°2: X1=2 et X2=3).

Voici le code que j'ai pu obtenir en enregistrant la macro:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub record_search_replace_v1()
'
' record_search_replace_v1 Makro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "X"
        .Replacement.Text = "Y"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    With Selection
       If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
       End If
        .Find.Execute Replace:=wdReplaceOne
        If .Find.Forward = True Then
           .Collapse Direction:=wdCollapseEnd
        Else
            .Collapse Direction:=wdCollapseStart
       End If
        .Find.Execute
    End With
End Sub