Discussion :

[dubinou]

Bonjour,

J'ai bidouiller à partir de macro existant une macro pour rechercher à partir de excel une valeur dans word et la remplacer par une autre copier depuis excel.
Le probleme c'est la fonction recherche qui marche pas

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
36
37
38
39
40
41
42
43
44
45
Sub EnvoyerDonneesExcelVersWord()
 
     Dim DocWord   As Word.Document
 
     Dim AppWord   As Word.Application
 
     Set AppWord = New Word.Application
 
     Application.DisplayAlerts = True
 
     AppWord.ShowMe
 
     AppWord.Visible = True
 
     Dim Cible As String
 
     Dim CollWord As Word.Words
 
     Dim x As Long
 
 
'Ouvre une instance Word
Set AppWord = New Word.Application
'Indiquez False pour garder l'application masquée
AppWord.Visible = True
 
        'Chargement du fichier word contenant le même nom que l'équipement du poste
    valeur = Range("D1").Value
Set DocWord = AppWord.Documents.Open("C:\Desktop\" & valeur & ".docx")
Set CollWord = DocWord.Content.Words
 
      ' Copie les données Excel
      ThisWorkbook.Worksheets("test").Range("B14").Select
    Selection.Copy
    Texte = ActiveCell.Value
 
      ' Recherche la valeur dans Word
 
'Recherche la valeur [A] dans Word et remplace la valeur [A] par la valeur texte
For x = 1 To CollWord.Count - 2
    If InStr(1, CollWord(x) & CollWord(x + 1), _
        "[A]") > 0 Then MsgBox CollWord(x + 2)
 
 
End Sub

[Menhir]

Cette question devrait se trouver dans la rubrique VBA Word puisque c'est d'objets Word qu'il s'agit.

Je ne connais pas très bien les manipulations dans Word mais je suppose qu'il doit être possible en VBA d'accéder à sa fonction de recherche, ce qui faciliterait grandement ce que tu veux faire.
J'ai jeté un coup d'oeil rapide dans l'aide VBA Word pour les objets Document et Range sans trouver la méthode qui permet de faire ça, l'enregistreur automatique de Word est vraiment xxx (remplacer "xxx" par la pire insulte qui vous vienne à l'esprit) et ne peut pas fournir une piste.

[clementmarcotte]

Bonjour

Cette question devrait se trouver dans la rubrique VBA Word puisque c'est d'objets Word qu'il s'agit.
et Range sans trouver la méthode qui permet de faire ça,

On peut appeler l'objet Find de Word autant à partir de l'objet Range que de l'objet selection.

Des exemples par là

Mais comme sous bien des aspects VBA est une implantation disons imparfaite (déficiente, incomplète, partielle) de la POO; Find est donc une propriété et non une méthode des objets Range et Selection.

https://msdn.microsoft.com/fr-fr/vba...-property-word

l'enregistreur automatique de Word est vraiment xxx (remplacer "xxx" par la pire insulte qui vous vienne à l'esprit)

Quand même pas à ce point-là. Le gros problème de l'enregistreur de macros de Word c'est qu'il ne supporte pas les manipulations à la souris dans le document lui-même. Il la supporte seulement dans les boîtes de dialogue et peut-être dans le Ruban. Il faut donc manipuler le texte au clavier. Pour le reste, il n'est pas si mal.