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 :
Si quelqu'un pouvait me donner une piste ça me serait très utile . Merci d'avance.
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 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
Partager