Discussion :

[Fabien-p]

Bonjour,

Je voudrais essayer de faire une macro sous excel 2007 qui me permettrait de récupérer des informations présentent sur chacunes des pages d'un fichier Word 2007.
Je suis encore novice dans les macro, j'arrive à me dépatouiller pour faire ce que je veux sous excel, mais là entre word et excel, j'ai un peu de mal...

Chacune des pages de mon fichier word sont structurées de la même façon (voir pièce jointe) :
1 tableau et 1 ligne de texte juste sous le tableau

Je voudrais récupérer les valeurs de quelques case du tableau et la ligne de texte qui se trouve sous le tableau et mettre tout ça dans un fichier excel sur la même ligne et donc faire une ligne excel par page du fichier word (j'espère que c'est clair)

Ci-joint une exemple d'une des page du fichier word, dans mon fichier, j'ai pas loin de 200 pages structurées de la même façon, juste les infos de chaque pages qui changent.

Je voudrais récupérer les infos que j'ai marqué "Test", "Code" ainsi que la ligne "aaaaa:bbbbb ccccccc ddddd" que j'ai mis dans mon exemple et les mettre sur une ligne pour chaque page dans un fichier excel.

Ce qui me manque c'est surtout les commandes permettant d'interagir dans un fichier word depuis excel.

Je tiens, dans la mesure du possible, à lancer la macro depuis excel et non depuis word (j'imagine que les 2 cas sont possible...)


Merci d'avance
Cordialement

[QuestVba]

Bonjour,

tu peux voir ce post : http://www.developpez.net/forums/d13...nt-word-excel/

[Fabien-p]

Bonjour,

Merci beaucoup QuestVba

Ton lien m'a bien aidé

voici mon code où il en est :

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
Sub importTableauWord()
'Nécessite d'activer la référence:
    'Microsoft Word xx.x Object Library
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Tableau As Word.Table
 
'Création instance Word
Set WordApp = New Word.Application
'Masque Word pendant l'opération
WordApp.Visible = False
 
'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("C:\temp\Test.docx")
 
'Représente le premier tableau dans le document
Set Tableau = WordDoc.Tables(1)
 
'Récupération des données
donnee1 = WordDoc.Tables(1).Cell(3, 1).Range.Text
donnee2 = WordDoc.Tables(1).Cell(2, 3).Range.Text
donnee3 = WordDoc.Sentences(WordDoc.Sentences.Count)
 
'Insertion des donnée dans la feuille de calcul + conversion
Cells(1, 1).Value = Left(donnee1, Len(donnee1) - 2)
Cells(1, 2).Value = Left(donnee2, Len(donnee2) - 2)
Cells(1, 3).Value = donnee3
Cells(1, 3).TextToColumns Destination:=Cells(1, 3), Tab:=True
 
 
'Ferme le document Word
WordDoc.Close False
'Ferme l'instance Word
WordApp.Quit
End Sub

Jusque là tout va bien, ça marche comme je veux, mais là, ça marche trés bien pour une seule page et je sent très bien les complications venir au moment d'appliquer ce code à toutes les pages de mon document...

Vais me pencher sur le problème, me je sent que je vais être assez rapidement limité surtout pour récupérer la dernière phrase de chaque pages (donnee3)

[QuestVba]

Bonjour

tu peux faire une boucle sur tous les tableaux de ton doc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim oTbl As Table
 
For Each oTbl in ActiveDocument.Tables
...
...
...
Next oTbl

[Fabien-p]

Encore merci pour ton aide

J'ai essayé avec ton ptit morceau de code, mais le problème est que les premiers tableaux du document ne m'interessent pas et ne sont pas de la même structure, enfin bref, je me suis débrouillé avec avec une boucle For...Next et le résultats me satistait pleinement.

Mon soucis est pour récupérer la phrase sous chacun des tableaux en bas de chaque page et je dois avoué que je n'arrive pas encore à faire des boucles sur les pages et les numéro de pages..j'ai encore du mal avec les commandes VBA de word... mais je désespére pas^^

[QuestVba]

Un petit plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Sélection de ton tableau
ActiveDocument.Tables(1).Select
'Placer le curseur juste après le tableau
With Selection
.MoveDown Unit:=wdLine, Count:=1 'descend d'une ligne
End With
'Sélection du paragraphe
Selection.StartOf Unit:=wdParagraph
Selection.MoveEnd Unit:=wdParagraph