Bonsoir Philippe, bonsoir à tous
Peux-tu essayer le code suivant:
Sub Importe_Tableaux()
Dim xlApp As Object
Dim MyWD As Object
Dim i, j, k As Integer
Set xlApp = CreateObject('word.application')
Set MyWD = GetObject('le chemin du fichier .doc')
MyWD.Application.Visible = True
With MyWD.Application.ActiveDocument
For j = 1 To .Tables.Count
Sheets(j).Select
For k = 1 To .Tables(j).Columns.Count
For i = 1 To .Tables(j).Rows.Count
Cells(i, k).Select
ActiveCell.FormulaR1C1 = .Tables(j).Cell(i, k).Range.Text
Next i
Next k
Next j
End With
MyWD.Close
Set MyWD = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
Tes différents tableaux seront affichés dans des feuilles différentes: veille à ce que ton fichier excel contienne le nombre de feuille nécessaire.
Il te faudra peut-être te débarasser de caractères non pris en compte par excel (par ex. des caractères qui ont pour code 7 ou 13 etc..)
Bonne nuit