Bonjour à toute la communauté informatique,
Le néophyte que je suis aurai besoin de votre aide pour écrire une macro permettant de récupérer des données contenues dans plusieurs tableaux d'un même fichier WORD.
Ces données doivent ensuite être listées dans un fichier xslx.
En pièce jointe vous trouverez un exemple de mon fichier word d'entrée.
Pour le moment je suis capable de récupérer des données d'un seul et unique tableau dans Word mais mon code ne fonctionne plus quand "il tombe" sur des cellules fusionnées.

Voici mon code:
-----------------------------------------------------------
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 importTableWord_VersExcel()
'
' importTableWord_VersExcel Macro
'
'Nécessite d'activer la référence:
    'Microsoft Word xx.x Object Library
 
Dim WordApp As Object
Dim WordDoc As Object
Dim Tableau As Object
Dim i As Integer, j As Integer
 
 
'Création instance Word
        Set WordApp = CreateObject("Word.Application")
 
'Masque Word pendant l'opération
        WordApp.Visible = True
 
'Ouvre le document Word
        Set WordDoc = WordApp.documents.Open("C:\Users\Public\test.docx")
 
'Représente le premier tableau dans le document
        Set Tableau = WordDoc.Tables(1)
 
'Boucle sur les colonnes de chaque tableau
        For i = 1 To Tableau.Columns.Count
 
'Boucle sur les cellules de chaque colonne
            For j = 1 To Tableau.Columns(i).Cells.Count
 
'Importe les données du tableau dans la feuille active
            ActiveSheet.Cells(j, i) = Tableau.Columns(i).Cells(j)
                Next j
            Next i
 
'Ferme le document Word
        WordDoc.Close False
'Ferme l'instance Word
        WordApp.Quit
 
'
    Application.Goto Reference:="importTableWord_VersExcel"
 
End Sub
--------------------------------------------------------------
Pourriez vous m'aidez a avancer dans mon travail...
Merci d'avance à toutes et à tous.

REMICH Anestest.docx