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