Recherche de texte dans fichier word inclus

Bonjour,

Je travaille acutellement avec une feuille excell dans laquelle plusieurs documents word ont été inclus (avec l'outil : insertion -> objet -> créer à partir du fichier). J'aimerai récupérer des information dans chacun des doc inclus mais ma macro ne fonctionne pas (je cherche à repérer le mot "local" dans le texte et récupérer le numéro qui suit).

Pour le moment j'arrive à ouvrir successivement les documents inclus en revanche je n'arrive pas à rechercher du texte dans le document ouvert.

Mon début de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub recuplocal () Dim j, n, k As Integer dim mot, local As String   mot = "LOCAL" n = 50 k = 3   For j = 1 To n obj.OLEFormat.Activate ... 'Selection.Start = obj.Content.Start 'Selection.End = obj.Content.Start 'With Selection.Find '.Text = mot '.Forward = True ... cells(k,13) = j cells(k,14) = local Next j End sub

---

Si quelqu'un pouvait me donner une piste ça me serait très utile :D. Merci d'avance.

Bonsoir,

Une piste est d'explorer les paragraphes à la recherche de la chaîne "local"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set doc = ActiveSheet.OLEObjects("<nom de l'objet word inséré>") Dim p As Paragraph For Each p In doc.Object.Paragraphs Dim pos As Integer With p.Range pos = InStr(1, .Text, "local") If pos > 0 Then MsgBox Trim(Mid(.Text, pos + Len("local"))) ' la chaîne qui suit "local" End If End With Next p   Set doc = Nothing

---

Une méthode plus sûr serait depuis Word, d'insérer un objet de formulaire de type champs de texte,
et de le nommer pour retrouver facilement la valeur qu'il contient.

P.S : Pour disposer des objects Paragraphs, il faut ajouter sous VBA la référence Microsoft Word x.0 Object Library

Bonsoir,

Merci pour cette réponse rapide, néanmoins je n'arrive pas à faire marcher la macro :?
Dans la première ligne de code :

Code:

---

1 2	Set doc = ActiveSheet.OLEObjects("<nom de l'objet word inséré>")

---

Je n'ai pas le nom du document word, je n'ai accès au document word que par son numéro et si je mets ActiveSheet.OLEObjects(Shape(j)) ça ne fonctionne pas.
En fait le problème c'est que j'ai récupéré une feuille excel avec toute une série de doc word inclus, mais je n'ai pas accès aux fichiers word d'origine je ne peux donc pas les traiter avec une macro ...

Bonne soirée

Re.

essaye ActiveSheet.OLEObjects(Shape(j).Name).

Sinon pour trouver le nom de l'élément, il existe plusieurs méthodes :
- utiliser le débuggeur pour explorer avec l'espion ActiveSheet.OLEObjects.
- enregistrer une macro pendant laquelle on sélectionne les documents
...

Bonjour,

Alors en mettant "Shapes(j).Name" comme nom d'objet la ligne fonctionne en ravanche la ligne suivante plante (for each p in doc.Object.Paragraphs). Tant pis, merci pour les conseils

Bonjour,

Citation:

---

en revanche la ligne suivante plante (for each p in doc.Object.Paragraphs)

---

Est-ce que la référence a bien été ajouté au projet comme indiqué au post #2

Citation:

---

P.S : Pour disposer des objects Paragraphs, il faut ajouter sous VBA la référence Microsoft Word x.0 Object Library

---

Si oui quel est le message d'erreur ?

J'ai bien ajouté la référence Microsoft Word comme indiqué, mon code est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set doc = ActiveSheet.OLEObjects(Shapes(j).Name) Dim p As Paragraph For Each p In doc.Object.Paragraphs Dim pos As Integer With p.Range pos = InStr(1, .Text, "local") If pos > 0 Then MsgBox Trim(Mid(.Text, pos + Len("local"))) ' la chaîne qui suit "local" End If End With Next p   Set doc = Nothing

---

et en exécutant la macro j'ai le message d'erreur suivant :

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet