Importer tableau Word vers Excel avec une Macro VBA

Version imprimable

26/01/2024, 12h11
Winterr

Importer tableau Word vers Excel avec une Macro VBA

Bonjour, j'ai plusieurs documents Word mis en page à l'identique. Je souhaite importer les données de tous les tableaux n°3 de chaque Word. Chaque tableau n°3 comporte 4 colonnes et un nombre variable de ligne. J'ai une macro VBA qui fonctionne pour un document mais impossible de le faire sur un dossier contenant tous les word. Avez-vous une solution à m'apporter sur la macro suivante svp ?

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 = False

'Ouvre le document Word
Set WordDoc = WordApp.documents.Open("C:\Users\Desktop\Test.docx")

'Représente le premier tableau dans le document
Set Tableau = WordDoc.Tables(3)

'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

Salut, teste ceci, j'ai simplement ajouté une boucle pour parcourir tous les fichiers du dossier:

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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
Dim fichier As String
Dim chemin As String
 
'Création instance Word
Set WordApp = CreateObject("Word.Application")
 
'Masque Word pendant l'opération
WordApp.Visible = False
 
'Chemin du dossier contenant les fichiers Word
chemin = "C:\Users\Desktop\"
 
'Premier fichier Word dans le dossier
fichier = Dir(chemin & "*.docx")
 
'Boucle sur tous les fichiers Word dans le dossier
Do While fichier <> ""
    'Ouvre le document Word
    Set WordDoc = WordApp.documents.Open(chemin & fichier)
 
    'Représente le premier tableau dans le document
    Set Tableau = WordDoc.Tables(3)
 
    '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
 
    'Prochain fichier Word
    fichier = Dir
Loop
 
'Ferme l'instance Word
WordApp.Quit
 
'
Application.Goto Reference:="importTableWord_VersExcel"
 
End Sub

26/01/2024, 13h57
Winterr

Merci pour ta réponse Franc.

Dans un premier temps il y a eu une erreur pour trouver le chemin du dossier. J'ai ensuite modifier le chemin.
Il n'y a plus de message d'erreur, la macro s'exécute mais aucunes données n'apparaissent dans excel.

Je suis novice en VBA, je ne comprends pas d'où peut venir le problème ?