Recherche et remplace avec une feuille qui fait plusieurs sections

**Uranne-jimmy** · 31/07/2017, 15h25

Bonjour,
Sur un code vba sur excel, j'exporte des données. Pour une partie de celle ci je fais un remplacement d'un champs par un autre (ici "TLM" en ma_variable).
Une des pages qui receptionne ce code possède plusieurs sections, et du coup, pour une raison que je ne comprend pas, le code remplace plusieurs fois le résultats, je me retrouve avec deux fois ma variable écrite.

voici ma procedure de remplacement de texte :

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
Sub remplacer(ByRef doc As Word.Document, ByRef recherche As String, ByVal remplace As String)
    doc.Content.Select
    Set myrange = doc.Content
    myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
    Replace:=wdReplaceAll
    If doc.Shapes.Count > 0 Then
        For Each sh In doc.Shapes
            If InStr(sh.Name, "Text") Then
                Set myrange = sh.TextFrame.TextRange
                myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
                Replace:=wdReplaceAll
            End If
        Next
    End If
    Dim sec As Section
    Dim nombrePage As Integer
    nombrePage = 0
    For Each sec In doc.Sections
        If nombrePage = 0 Or nombrePage <> sec.Range.Information(3) Then
            Set myrange = sec.Headers(wdHeaderFooterPrimary).Range
            myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
            Replace:=wdReplaceAll
            Set myrange = sec.Footers(wdHeaderFooterPrimary).Range
            myrange.Find.Execute FindText:=recherche, ReplaceWith:=remplace, _
            Replace:=wdReplaceAll
            nombrePage = sec.Range.Information(3)
        End If
    Next
 
End Sub

Avez vous un idée pour m'aider à résoudre ce soucis ?

**Heureux-oli** · 01/08/2017, 17h26

Salut,

Les raisons peuvent être multiples, mais avec seulement le code, c'est difficile de te donner une piste.

Que souhaites tu faire ?

Je suppose que ton texte doit se trouver plusieurs fois dans ton document.
Pourquoi ne pas utiliser des champs et une champ de formulaire pour recevoir ta données.

Possible qu'une solution plus facile et rapide pourrait être mise en place.

**Uranne-jimmy** · 02/08/2017, 09h30

Bonjour,
En fait j'ai un document word modèle avec des mots clés répartis dans le documents, qui me servent à être remplacé par des informations contenu dans mon excel (j'ai également des signets pour exporter des graphs et tout mais bon, ça c'est pas le sujet). C'est un de ces mots clé qui est copier deux fois. Pour être exact, il pose problème qu'à un seul endroit (alors que je le remplace à plusieurs autres endroits) : dans ma deuxième page, dans la tête de page. J'ai dans ladite page un saut de section (continu) et un saut de page.
Je pensais pouvoir gérer ça en trouvant le nombre de page par section mais au final ça n'a pas l'air de marcher mon truc.
Je veux bien que tu m'en dises plus sur les champs, stp.

**Heureux-oli** · 02/08/2017, 14h13

Salut,

Si une donnée doit être répliquée plusieurs fois dans un même document, il y a d'autre moyen que le rechercher remplacer de Word.

On définit un endroit dans le document, ça peut être un champ de formulaire. On attribue à ce champ un style de caractère.
Il suffit ensuite d'utiliser des champ StyleRef dans le document pour répliquer cette information.

On peut le faire aussi avec un tableau d'une cellule.

Le but est d'atteindre facilement cet emplacement en VBA.
Le signet n'est pas une très bonne solution parce qu'il est détruit lors de l'écriture de la donnée.

On peut utiliser un champ de propriété du document et on accède alors à cette propriété par le code ou encore une variable de document.

Les choix sont vraiment multiples.

C'est un peu à toi de voir vers quelle solution tu souhaites aller.

**Uranne-jimmy** · 02/08/2017, 16h35

Ok, je vais regarder du côté des formulaires et des fields, il semble y avoir des choses intéressantes. Ca pourrait effectivement m'éviter cette lourdeur de passer par un rechercher remplacer (j'ai juste codé ce que j'aurais fait avec un clavier et une souris ^^).
Pour les signets, je suis étonnés que tu me les déconseilles. Ma macro l'utilise pour repérer l'endroit où créer un tableau et l'endroit ou copier des graphiques (BEAUCOUP de graphiques). Je repère le signet, puis décale le curseur vers la gauche et je colle, le signet est encore là et j'ai mes graphiques dans l'ordre souhaité

Après pour le coup, je suis franchement pas un expert, j'utilise VBA avec une série de macro qui suit les traitements de données à partir des données brutes (excel) jusqu'à un compte rendu, et cela avec des fichiers "modèles" prérempli, pas beaucoup plus. Pour Word particulièrement, contrairement à excel, je trouve que c'est particulièrement compliqué à appréhender le VBA.

**Heureux-oli** · 02/08/2017, 19h15

Salut,

Le signet, une fois utilisé disparaît, sauf si c'est un point d'insertion. Mais dans ce cas, une seconde utilisation va ajouter une donnée supplémentaire sans écraser la précédente.

Pour les formulaires, tu peux toujours jeter un œil là : http://heureuxoli.developpez.com/off...d/formulaires/

**Uranne-jimmy** · 03/08/2017, 10h24

Re
Bon, j'ai regardé les styleRef.
Si j'ai bien compris. Ca permet de créer un champs variable qui va chercher la première occurrence d'un style comme texte (et plus si affinité)
Pour mon document, le texte qui va apparaitre dans tout le doc, il est présent dans l'en-tête de ma page de garde, qui est dans une section qui lui est propre (j'ai un header et un footer différent du reste du document). Du coup, je peux pas venir chercher cette référence, J'ai d'autres options que RefStyle mais aucune ne semble me permettre d'attraper ce que je cherche. Peut être que je peux jouer sur le publipostage et mettre toute mes données variables dans un bdd. Ce qui pose soucis c'est que le document final est juste un doc fini, enregistré, qui bougera plus, ça fait un peu overkill d'avoir un excel spécifique pour le doc, et je ne sais pas ce que vont devenir les variables si je partage le doc à mes collègues mais pas le Excel.

Ton tuto est pratique, je l'avais trouvé hier en fouillant un peu. Cependant là il me faudrait quelque chose de plus général sur word, j'ai des notions qui me manque on dirait (je remercie mes profs d'avoir voulu nous apprendre le VBA sur open office tableur uniquement).
(Je suis en train de lire les liens à la fin du tuto).
L'idéal ce serait une sorte de petit espace mémoire invisible du document avec quelques variables auquel je peux faire appel dans le doc. Ca rendrait la chose facile en code et tout de même assez propre.